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EXECUTIVE  SUMMARY 


The  Hypercard-UNIX  electronic  mail  system  (HUES)  was  programmed  using 
HyperCard  version  1.2.5  on  a  Macintosh  computer  system.  HUES  was  created  as  a 
user-friendly  way  for  U.S.  Army  Human  Engineering  Laboratory  (HEL)  employees 
to  transfer  electronic  mail,  as  well  as  files  of  various  types  and  formats,  to 
anyone  connected  to  the  Internet.  (Note .  The  Internet  is  a  collection  of 
many  networ)cs  that  service  universities,  private  industry,  and  the  Department 
of  Defense.)  The  system  is  essentially  an  interface  or  shell,  which  receives 
information  from  another  computer  system  (in  this  case,  a  UNIX  system)  and 
displays  the  information  in  a  format  that  allows  easier  user  interaction  with 
the  UNIX  system.  The  system  receives  information  from,  another  cort^uter  by 
using  a  group  of  transmission  control  protocol/Internet  protocol  (TCP/IP)  code 
resources  developed  by  Apple  Computer,  Inc.,  for  use  with  HyperCard  and 
Macintosh  computer  systems.  This  transfer  of  information  allows  users  to  ta)ce 
advantage  of  the  Macintosh's  point-and-clic)c  user  interface  to  perform  desired 
procedures,  instead  of  having  to  type  UNIX  commands. 


The  system  was  designed  to  be  expandable,  with  two  different  means  of 
establishing  a  connection  to  a  host  computer  (i.e.,  modem  or  TCP/IP).  The 


system  also  allows  direct  manip 


Illation  of  UNIX  files,  (i.e.,  deleting. 


viewing)  and  the  option  of  directly  sending  UNIX  commands. 

i 

This  report  assumes  some  basic  understanding  of  HyperCard,  MacTCP,  file 
transfer  protocol  (FTP),  UNIX,  an4  electronic  mail.  The  reader  may  want  to 
refer  to  other  documentation  concerning  these  subjects  for  a  more  complete 
understanding  of  the  issues  involved  with  this  system.  Some  suggested  reading 
is  given  in  the  bibliography.  ! 


DEVELOPING  A  HYPERCARD-UNIX  INTERFACE  FOR  ELECTRONIC  MAIL  TRANSFER 


PROCEDURES 

Setting  up  the  System 

1.  The  U.S.  Army  Human  Engineering  Laboratory  (HEL)  Hypercard-UNIX  E- 
mail  system  (HUES)  is  a  HyperCard  stac)t  that  runs  on  a  Macintosh  Plus  computer 
or  later  machine  running  system  6.0.x  or  greater.  As  of  this  writing,  it  has 
not  been  tested  with  system  7.0. 

2.  The  system  requires  MacTCP,  which  must  be  purchased  from  Apple 
Computer,  Inc.,  to  be  properly  configured  if  a  transmission  control 
protocol. 'Internet  protocol  (TCP/IP)  protocol  is  to  be  used.  If  a  modem  type 
access  is  to  be  used  instead  of  MacTCP,  HEL's  Hypercard-UNIX  E-mail  system- 
modem  access  can  be  used  instead.  Much  of  the  MacTCP  documentation  is  poor, 
but  there  is  one  important  thing  to  remember  during  the  configuration.  If  an 
AppleTalk  configuration  is  present,  as  opposed  to  an  Ethernet  type  connection, 
configure  MacTCP  in  the  server  option  (not  dynamic  or  static)  and  set  the  zone 
to  the  same  zone  as  the  gateway  or  bridge  the  computer  goes  through  to  get  to 
the  host  computer,  not  the  zone  where  the  computer  resides. 


Design  o.,  the  System 

HUES  is  designed  to  be  an  interface  for  transferring  mail  and  files  to 
other  users  on  the  Internet  system.  The  stack  is  customized  to  the  current 
configuration  of  the  HEL4  UNIX  system  as  of  this  date.  Consequently,  the 
system  will  have  difficulty  interfacing  with  other  systems  unless  changes  in 
the  code  are  made. 

The  MacTCP  version  of  the  system  uses  the  transmission  control  protocol 
external  command  documents  (TCP  XCMD  Docs)  and  TCP  XCMD  Example  stacks  written 
and  distributed  by  Apple  Computer  for  use  with  Macintosh  computers.  The 
MacTCP  version  also  uses  MacTCP,  which  is  a  control  panel  device  for  Macintosh 
computers.  The  modem  version  uses  the  Serial  Port  XCMDs  stack  written  and 
distributed  by  Apple  Computer  to  communicate  with  the  host  computer.  The 
stack  sends  information,  using  these  external  commands,  to  the  UNIX  machine 
and  waits  for  responses,  at  which  point,  it  takes  the  data  received  and  places 
them  in  the  appropriate  data  fields. 

The  stack  consists  of  a  main  interface  screen,  which  allows  users  to 
actually  see  the  files  in  their  current  directory  on  the  UNIX  host.  This  main 
interface  screen  consists  of  one  background  field  that  receives  all  the  data 
coming  from  the  UNIX  host.  As  the  user  progresses  to  other  interface  screens, 
this  field  is  re-sized  and  adjusted  for  different  procedures  throughout  the 
stack. 


The  file  sending  and  receiving  button  on  the  main  interface  screen 
allows  the  user  to  send  and  receive  files  to  the  host  conputer.  The  execution 
of  this  procedure  opens  up  a  separate  file  transfer  protocol  (FTP)  connection, 
while  keeping  the  existing  Telenet  connection  open.  The  transfer  is  then  made 
using  various  external  commands  to  convert  the  file  to  or  from  binary  to  hexi- 
decimal  (BinHex)  format,  for  acceptance  by  the  host  con^uter. 

The  file  reading  card  contains  the  single  background  field  and  an 
interface  for  displaying  files  on  the  host  computer.  Commands  are  sent  by  the 
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user  to  the  host  computer  to  display  a  file  in  a  specific  directory,  and  the 
information  is  then  sent  back  to  HUES  for  viewing.  Any  actions  that  the  user 
takes  upon  the  text  of  the  file  in  the  window  of  HUES  has  no  effect  on  the 
actual  file  on  the  host  system,  so  essentially,  HUES  is  displaying  a  copy  of 
the  file  on  the  host  machine. 

The  send  mail  card  is  simply  an  area  in  which  users  can  type  their 
electronic  mail  messages  into  a  HyperCard  field.  The  data  are  then  formatted 
with  carriage  returns  using  an  external  command  and  sent  to  the  host  computer 
as  electronic  mail.  This  is  done  because  the  HyperCard  field  in  which  the 
user  is  typing  the  electronic  mail  to  be  sent  contains  no  carriage  returns, 
and  if  this  were  to  be  sent  to  the  host  computer,  it  would  appear  as  one  long 
line,  not  a  paragraph.  The  host  computer  is  actually  idle  while  the  user 
types  an  electronic  mail  message,  so  a  script  that  executes  at  regular 
intervals  keeps  the  user  logged  into  the  host  computer  so  the  user  will  not  be 
booted  out.  The  modem  version  does  not  include  this  feature  because  of 
differences  in  the  external  commands  used  for  the  two  versions,  and  the  user 
must  click  on  an  Update  button  to  let  the  host  computer  know  the  user  is  still 
there  but  merely  typing  a  message.  Once  the  user  clicks  the  send  mail  button, 
HUES  begins  to  send  the  necessary  commands  to  the  host  computer  to  send  the 
electronic  mail  message.  HUES  then  waits  to  ensure  that  the  mail  has  been 
sent  successfully.  If  an  error  was  encountered,  it  is  displayed  along  with 
information  relating  to  any  possible  problems  that  may  be  preventing  the 
message  from  being  delivered. 

The  read  mail  card  displays  each  mail  message  with  the  opportunity  to 
save  or  delete  each  message.  The  system  uses  the  same  commands  that  would  be 
used  to  interface  with  a  UNIX  machine  on  the  command  line  level.  Messages  can 
be  saved  into  a  file  format  for  transferring  onto  the  Macintosh  if  the  user 
desires.  If  the  user  exits  this  screen,  the  messages  are  saved  in  the  mbox, 
which  can  be  viewed  at  a  later  time  by  selecting  the  mbox  button. 


Executing  the  Program 

1.  If  HUES  is  used  with  a  MacTCP  type  connection,  when  the  stack  is 
first  opened,  a  prompt  "LOGIN  NOVJ?"  will  immediately  appear.  If  the  login 
name  in  the  login  field  is  correct,  click  "OK."  This  is  to  accelerate  the 
login  process.  If  the  name  in  the  login  field  is  incorrect,  click  in  the 
"Login  Name"  field  and  type  the  user's  login  name;  then  click  on  the  login 
button.  Type  the  user's  password  in  the  dialog  box  that  appears  after  the 
login  prompt. 

If  the  information  entered  here  is  correct,  the  stack  will  display  the 
main  Hypercard-UNIX  interface  screen.  If  an  error  occurs  at  this  point, 
problems  may  exist  with  the  user's  MacTCP  configuration,  the  host  computer 
might  be  down,  or  the  password  may  have  been  entered  incorrectly. 

This  card  has  three  buttons  and  one  field  (see  Figure  1) . 

a.  The  "Login"  button  executes  the  login  procedure  using  the  name 
listed  in  the  login  field. 

b.  The  "Show  Last  Login"  button  displays  information  about  when 
the  last  login  was  recorded  by  the  host  computer  using  the  login  name  listed. 

c.  The  "Question"  button  displays  a  help  field  containing 
information  about  this  stack. 
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Figure  1.  The  user  preferences  card"MacTCP  version. 


d.  The  "Login  Name"  field  contains  the  name  that  will  be  sent  to 
the  host  computer  during  the  login  procedure. 

2.  If  HUES  is  used  with  a  modem  type  connection,  enter  the  dialing 
parameters  for  the  modem  to  establish  a  connection  with  the  host  computer. 
Simply  enter  the  phone  number  for  the  HEL4  computer  and  the  user's  login  name 
as  shown  below.  If  it  is  necessary  to  dial  a  "9"  and  the  area  code  ”410" 
first  to  reach  the  HEL4  computer,  enter  that  information  as  well.  After  the 
user  clicks  on  the  dial  button,  the  modem  establishes  a  connection,  and  the 
user  can  click  on  the  login  button  to  send  the  login  procedure  to  the  host 
computer.  The  stack  expects  the  user  modem  to  be  attached  to  the  modem  port, 
not  the  printer  port.  This  card  has  three  fields  and  five  buttons. 

Buttons 


a.  The  "Advanced  Users  Only"  button  on  this  card  allows  the  user 
to  change  the  baud  rate  and  to  strip  control  characters,  but!  the  button  is 
already,  pre-set  for  the  HEL4  computer,  so  changes  should  not  belnecessary. 

b.  The  "Dial"  button  executes  a  dial  procedure  using  the 
information  contained  on  this  card.  Input  the  phone  number  exactly  as  it 
would  be  dialed  from  a  phone;  in  other  words,  if  a  prefix  or  an  extension  is 
needed,  include  that  in  the  phone  number. 
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c.  The  "Login"  button  is  not  visible  in  Figure  2.  It  appears 
only  after  the  "Dial"  button  has  been  selected.  Wait  until  the  host  computer 
is  fully  connected  before  clicking  this  button. 


Figure  2.  The  user  preferences  card — modem  version. 


d.  The  "Home"  button  goes  back  to  the  user's  home  stack. 

e.  The  "Question"  button  displays  a  help  field. 

Fields 

a.  The  "Connect"  field,  which  looks  as  though  it  is  being  held  by 
a  hand,  displays  information  about  the  connection  process.  When  a  connection 
is  made,  the  word  "connect"  will  appear  in  this  field;  this  signals  the  user 
to  click  on  the  "login"  button. 

b.  The  "Phone  number"  field  contains  the  phone  number  that  will 
be  sent  to  the  modem  during  the  connection  procedure. 

c.  The  "Login  name"  field  contains  the  name  that  will  be  sent  to 
the  host  computer  during  the  login  sequence. 

Both  the  MacTCP  version  and  the  modem  version  next  will  display 
the  interface  card  if  a  connection  is  made  (see  Figure  3)  .  There  are  some 
minor  differences  between  the  two  versions'  interface  cards.  The  MacTCP 
version  displays  a  "MacTCP  connection  to  UNIX  host  established"  in  a  field  in 
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the  top  right-  .d  corner  if  a  connection  has  been  made.  The  modem  version 
displays  a  re  mg  data  field  in  the  top  left  and  corner  of  the  card.  This 
field  display  ..  ..'-e  amount  of  information  it  is  receiving  from  the  host 
computer.  The  modem  version  tells  only  if  the  stack  is  receiving  data  from 
the  UNIX  host,  not  whether  a  connection  has  been  made. 

3.  If  a  connection  has  been  established  with  the  host  computer,  this 
screen  will  appear  with  a  list  of  the  files  contained  within  the  directory  in 
the  field  on  the  left  of  the  screen.  At  this  point,  users  can  send  and  read 
their  mail,  send  and  receive  files  from  the  host  computer,  change  and  list 
directories,  read  and  print  UNIX  files,  send  any  type  of  UNIX  command,  and  of 
course,  log  out  of  the  UNIX  system.  This  card  contains  ten  buttons  and  one 
field. 


Display  Ulindotu 


HEL  E-mail  stack  u  2.1.1 


UNtK  Interface 


Directory 


Moue  Up 
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Delete  file 
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. . . 


y  ^  '  V^'.  I 


Send  UNIK  Command 


Logout 


Figure  3.  The  interface  card. 


Buttons 


a.  The  "Move  Up"  button  allows  the  user  to  change  directories  on 
the  host  computer  by  going  to  the  directory  above  the  current  directory. 

b.  The  "List"  button  lists  the  files  contained  within  the  current 
directory  to  the  field  at  the  left  of  the  screen. 


c.  The  "Rename  File"  button  allows  the  user  to  rename  any  file 
within  the  current  directory. 


) 


d.  The  "Delete  File”  button  allows  users  to  delete  any  file  that 
they  have  permission  to  delete  within  the  current  directory. 

«.  The  "Transfer  Files”  button  allows  the  user  to  send  or  receive 
any  file  to  or  from  the  host  computer. 

f.  The  "Mail”  button  gives  the  user  the  option  of  either  sending 
or  checking  electronic  mail. 

g.  The  "mbox”  button  allows  the  user  to  check  the  mail  that  has 
been  saved  to  the  mbox  file  on  the  host  computer. 

h.  The  "Send  UNIX  Command"  button  presents  the  user  with  a  dialog 
box  to  send  a  specific  command  to  the  host  computer.  The  results  from  the 
conmand  are  then  displayed  in  the  field  on  the  left  of  the  card. 

i.  The  "Logout"  button  will  disconnect  the  user  from  the  host 
computer.  After  users  have  disconnected  from  the  host  computer,  they  are  then 
free  to  go  to  the  home  stack. 

j.  The  "Home"  button  takes  the  user  to  the  home  card. 

Fields 


a.  The  "Display  Window"  is  a  field  containing  the  files  that 
reside  in  the  current  directory  on  the  host  computer.  If  the  user  wishes  to 
display  a  file  on  the  host  computer,  simply  clicking  on  the  file  name  in  this 
field  will  display  the  file  in  a  field  on  another  screen  (see  Figure  4) . 

The  file  view  card  displays  text  from  the  host  computer  in  its  center 
field.  The  file  name  is  listed  in  the  field  at  the  very  top  of  the  card. 
This  card  has  three  buttons  and  two  fields. 

Buttons 

a.  The  "UNIX  interface"  button  will  take  the  user  to  the  main 
interface  screen. 

b.  The  "Show  More"  button  will  display  more  text  than  is 
currently  being  displayed  in  the  window.  This  is  because  the  UNIX  machine 
receives  the  "more"  command  from  this  stack  to  display  the  text  file. 

c.  The  "print"  button  will  print  the  field. 

d.  The  "file  name"  button  will  display  the  file  currently  being 
viewed  on  the  host  computer. 


Fields 


a.  The  "Window"  field  displays  the  text  file  currently  being 
viewed  on  the  host  computer . 

The  mail  card  (see  Figure  5)  allows  users  to  send  electronic  mail.  This 
card  contains  four  bi'ttons  and  four  cards.  HEL's  Hypercard-UNIX  E-mail 
system-modem  version  may  contain  an  "Update"  button  (not  shown  in  Figure  4) . 
***'i^*  •  person  is  typing  an  E-mail  message,  the  host  computer  is  essentially 
idle;  therefore,  after  a  certain  amount  of  time,  the  host  computer  may  boot 
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the  user  out.  This  update  button  sends  a  conanand, to  the  host  computer  letting 
the  computer  know  the  user  is  still  connected  and  not  idle.  A  warning  field 
for  the  modem  version  displays  this  information  and  instructs  the  user 
whenever  this  card  is  opened.  This  is  only  for  the  modem  version  of  the 
stack,  not  for  the  MacTCP  version. 

Buttons 

a.  The  "Options"  button  is  a  pop-up  menu  containing  six  options 
for  the  electronic  mail  user. 

1.  The  "Groups"  selection  in  the  pop-up  menu  allows  the  user 
to  select  from  a  list  of  pre-defined  groups  of  people  to  whom  a  message  can  be 
sent . 

2.  The  "Edit  Groups"  selection  in  the  pop-up  menu  allows 
users  to  define  their  own  list  of  individuals  to  whom  messages  can  be  sent. 

3.  The  "Include  File"  selection  in  the  pop-up  menu  allows 
the  user  to  include  any  file  on  the  host  computer  as  part  of  an  electronic 
mail  message.  Files  that  reside  on  the  Macintosh,  which  the  user  needs  to 
send  as  part  of  a  message,  must  first  be  transferred  to  the  host  computer  by 
using  the  transfer  file  button  on  the  interface  screen. 

4.  The  "Move  Up  Directory"  selection  in  the  pop-up  menu 
allows  the  user  to  change  directories  to  locate  a  file  to  send. 

5.  The  "Clear  field"  selection  in  the  pop-up  menu  clears  the 
previous  message  from  the  card  so  that  a  new  message  may  be  entered. 

b.  The  "Send"  button  sends  the  message  to  the  address (es)  in  the 

"to:"  field. 

c.  The  "UNIX  Interface"  button  takes  the  user  to  the  "UNIX 
interface"  card. 

d.  The  "Saved  Addresses"  button  allows  users  to  choose  from  a 
list  of  previously  saved  addresses. 

Fields 

a.  The  "cc:"  field  allowi  carbon  copies  to  be  mailed  to  other 

users.  I 

b.  The  "to:"  field  contaiUs  the  address  of  the  person  who  will 

receive  the  electronic  mail.  | 

c.  The  "Subject"  field  coiltains  the  subject  header  for  the 

message .  I 

The  card  in  Figure  6  displays  el^tronic  mail  in  the  main  field,  which 
has  been  received  by  the  host  computer.  This  card  contains  eight  buttons  and 
two  fields. 


\ 
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Buttons 


Figure  6.  Themessage  card. 


a.  The  "Save"  button  saves  the  current  message  to  a  file  in  the 
current  directory  on  the  host  computer. 

b.  The  "Print  Screen"  button  prints  the  contents  of  the  display 

field. 


c.  The  "Save  Address"  button  saves  the  address  of  the  currently 

displayed  message  to  enable  the  user  to  access  this  information  from  the  send 
mail  screen.  .  . .  — - 

d.  The  "Show  message"  button  is  a  pop-up  menu  which  lists  all  the 
message  numbers  that  have  been  received  and  are  ready  for  viewing. 

e.  The  "Headers  all"  button  displays  the  headers  of  all  the 

messages . 

f.  The  "UNIX  Interface"  button  allows  the  user  to  return  to  the 
UNIX  interface  screen. 

g.  The  "Delete"  button  deletes  messages  that  are  currently  being 

viewed. 

h.  The  "Exit"  button  exits  the  current  screen  and  saves  the 
messages  to  the  mbox  file. 
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i.  The  answer  button  allows  the  user  to  answer  the  currently 
displayed  message. 

Fields 

a.  The  "msgname"  field  in  the  middle  of  the  screen  displays  the 
number  of  messages  received. 

b.  The  "screen"  field  displays  the  message  text. 

The  Groups  card  (see  Figure  7)  allows  the  user  to  define  groups  of 
people  to  whom  messages  can  be  sent  from  the  send  mail  card.  The  information 
must  be  entered  exactly  as  the  directions  state  at  the  top  of  the  card.  This 
card  has  two  buttons  and  one  field.  It  must  be  the  group  name  followed  by  a 
comma,  then  open  parenthesis,  address  of  an  individual,  close  parenthesis. 

Buttons 

a.  The  "Return"  button  takes  the  user  back  to  the  mail  card. 


b.  The  "UNIX  Interface"  takes  the  user  back  to  the  UNIX  Interface 


card. 


Fields 

a.  The  "Group  Name"  screen  allows  users  to  define  their  groups 
for  sending  electronic  mail. 


Directions:  Enter  the  name  of  the  group  followed  by  a  comma  and 
then  the  address  of  the  group. 


Great  people, (jsmith(g)hel4.brl.mil,djones,wryan) 
Marketing.{jsmith@hel4.brl.mil,djones.tbrown) 
Sales, (rthompson.jdoe.plucas) 


Figure  7.  The  groups  card. 
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CONCLUSIONS 


The  intent  of  HUES  was  to  merge  the  powerful  electronic  mail 
capabilities  of  the  UNIX  system  with  the  easy-to-use,  point-and-click 
environment  of  the  Macintosh.  However,  mixing  different  system  architectures 
and  operating  systems  cannot  easily  be  accomplished  without  making  certain 
sacrifices.  In  the  case  of  HUES,  the  operator  gains  a  user-friendly 
environment  and  increased  productivity  but  sacrifices  the  speed  and  power  of 
the  UNIX  operating  system.  To  some  extent,  the  system's  reliability  is  also 
compromised  because  of  increased  system  complexity.  These  costs  must  be 
weighed  against  increased  productivity  and  decreased  training  times. 

The  TCP/IP  external  commands  used  during  the  development  of  this  system 
can  also  be  used  to  communicate  with  other  operating  systems  besides  the  UNIX 
environment.  Thus,  future  applications  could  focus  on  whether  other  platforms 
might  benefit  from  an  integration  with  a  Macintosh  graphically  oriented 
operating  system. 

HEL's  Hypercard-UNIX  E-mail  system  is  a  successful  HyperCard  program  and 
an  efficient  tool  for  transferring  electronic  mail  across  the  Internet. 
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HEL'S  HYPERCARD-UNIX  E-MAIL  SYSTEM  (HUES) 
CARD  NAMES 
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1 


I 

I 


I 

i 


i 

i 

I 


Card  name:  The  user  preferences  card — modem  version. 


HEL  E-mail  stack  u  2.1.1 1 


Card  name:  The  user  preferences  card — MacTCP  version. 
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I!EL  E-mail  stack  u  ?.1 .1 


Great  people, (jsmith@hel4.brl.mil.djones.wryan) 
Marketing, (jsmith(3hel4.brl.mil,djones,tbrown) 
Sales,(rthompson,jdoe,pluca3) 


m\ 


UNIH  interface 


Card  name:  G 


HEL  E-mail  stack  u  2.1.1 


Print  screen 


You  have  1  mbox  message 


Saue  address 


Headers  all 


UNIH  Interface 


Card  name:  Themessage, 


Delete 


Answer 
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APPENDIX  B 


HEL'S  HYPERCARD-UNIX  E-MAIL  SYSTEM  (HUES) 
SOURCE  CODE— MACTCP  VERSION 
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HEL'S  HYPERCARn-UNIX  E-MAIL  SYSTEM  (HUES) 
SOURCE  COOE— RUiCTC?  VERSION 


.-I-.-.  STACK;  HEL  E-r.a:l  st.ac.<  v  •- 

STACK  SCRIPT: 

—  BEL  E-mail  Stack  ©Troy  Kallay  1991 

—  Many  of  tha  login  routines  and  character-handling  functions  wara  taken  from  HyparCNIX 

—  V  1.7.3  by  Gragg  Anderson.  My  thanks  to  Gregg  for  his  suipport.  Many  of  tha  comments  for 

—  tha  MacTCP  version  are  his.  His  coda  Is  set  ^.ppart  by  borders. 

on  openScacK 

put  t.ne  seconcs  ir.to  eg  tr.etire  ot  caro  i.-.terface 

hide  nenuBar 

set  userieve.  to  t 

go  card  “'Jser  Preierences" 

.hide  msg 

—  This  Is  tha  automatic  login  routine 
answer  "login  now"  witn  “Car.ce."  or  "CK" 
if  it  is  "Cancel"  men  ex;t  openStacK 
send  nouseUp  to  caro  cotton  .cgm 
send  T- useL'p  to  caro  n.tton  "-at." 

— oomenu  "Ctooser" 

end  openStacx 
on  cioseStack 

global  TCPcon.nect  tor. 

if  TCPState  (TCPconnect  ton  I  Is  "estac*ts.ned"  then 
put  "Logging  out...."  into  rsg 
sendResponse  "logout"  I  return 
wait  60 

sendResponse  "logout"  i  return 
wait  20 

TCPRelease (TCPconnect  ton) 
wait  60 

TCPCiose (TCPccn-ent  torn 

put  TCPState  t  T.TPconneot  .f  t  .'to  no  f.o  troystat-s  or  caro  Interface 
end  if 

if  t.".e  freeSize  of  tr.ts  stacx  2  :.56C  tnen  --  CK  free  space? 
put  "Co.n'pact  ing  mo  stacx,"  .'to  -oO 
set  userieve.  tc  o 

send  "dcMenu  Compact  Staox"  to  .-.ypercaro  - 

end  if 

end  closeStack 
on  idle 

global  TCPconnect ion , FTPconnect ion 

—  This  Is  an  Important  routine.  It  checks  to  saa  how  much  tlma  has  passed 

—  and  subtracts  it  from  tha  tlma  in  fid  thaTlma.  If  a  certain  amount  has 
■“  passed  It  simply  sands  a  carralga  return  to  lot  the  SOH  know  tha  user 
--  Is  still  logged  In  but  simply  Idle. 

put  the  seconds  into  nowTime 

put  fid  theTime  of-card  interface  unto  fun 

subtract  fun  from  nowTime 

if  nowTime  >  240  then 

sendResponse  “  ^  t  return 
end  if 
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H  rTPconnection  ii  •mpty  then 


put  TCPRecvUpTo (TCPconn«ct ion, empt y, 0, empty)  into  newinput 
if  newinput  it  rot  ’SSS  invalid  connection  ID  then 


If  newinput  is  not  empty  then 
set  cursor  to  watch 

put  xstrlp(newlnput, linefeed)  after  last  character  in  fid  screen 
end  if 
end  it 

else 

put  TCPRecvUpTo(FTPconnectien, empty, 0, empty)  into  newinput 
if  newinput  is  not  *555  invalid  connection  ID  5S5”  then 


if  newinput  it  not  empty  then 
set  cursor  to  watch 

put  xStrip (newinput , linefeed)  after  last  character  in  fid  screen 

end  if 
end  if 

end  if 
end  idle 

function  UNIXWalt 
put  1  into  holder 

put  HaitForOutPutSilence ( 60)  into  fun 
if  fun  is  not  empty  then 
set  cursor  to  watch 
repeat  until  holder  •  empty 

put  NaitForOutPutSilence (60)  into  holder 
put  holder  after  last  character  in  fun 
end  repeat 
end  If 

—put  KStrlp(fun.  linefeed)  into  fun 
return  fun 
end  UNIXHait 

function  NaitForSomethinq 
put  1  Into  holder 

put  WaitForOutPutSilence (60)  into  fun 
if  fun  it  empty  then 

repeat  untii  fun  is  not  empt, 

put  NaitForOut  utSiience(60)  into  fun 
end  repeat 
end  if 
return  fun 

end  NaitForSomethinq 


function  flushOutput 
qlobai  XMttthod, TCPconnection 

qet  Output Av() 

if  it  is  0  then  return  empty 
if  XMethod  is  -Serial'  then 
return  recvChart (it) 
eise  if  XMethod  is  “MacTCP-  then 

return  TCPRecvChars (TCPconnection, it ) 
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•  nd  1  f 

return  empty 

end  fl  jshOvitput  _ 


tunctior.  QutputAv 

q*jbai  XMethod,  TCPconnecl  ;c.n 

If  XMethod  it  ’'Serial''  then 
return  Char sAva  i  lab  le  ( ) 
else  if  XMethod  is  "MacTCP"  then 

return  TCPChar s Aval  1  able (TCPconnect Ion) 
end  i  f 
return  0 
end  OutputAv 

on  teinetCommands  a 
global  TCPconnect ion 

••  Co  through  all  the  now  charactora,  handling  Tolonot  options. 

-•  Mots.  This  coda  ataumaa  that  both  tha  DO/DOM 'T/MILL/HON'T 
••  and  tho  acconpanylng  option  apoclf Icatlbn  aro  in  a,  Zf  thoy 

--  got  apilt  acroaa  a  rocolvo,  this  will  break.  Bowovor,  wo 
•  •  wait  long  enough,  and  they  should  arrive  In  tho  aaao  packet; 

--  this  should  not  bo  a  probloe. 
repeat  while  a  is  not  empty 

-•  Cot  tho  cheractor  and  rainovo  It  froo  a . 
get  charToNum (char  1  of  si 
delete  char  1  of  s 

Chock  for  conaiand  load-ln  character, 
if  it  it  2ii  then 

•  •  Cot  tho  eooaand  Itself. 

get  CharToNum  (char  1  of  t) 
delete  char  1  of  s 

••  Chock  for  MI1L/HON‘T/O0/OON'T. 
if  (it  >  2501  and  (it  <  256)  then 

—  Zf  It'S  OO/OON'T,  answer  NON'T. 
if  it  >  252  then 
get  252 

••  If  It's  NZLL/NOM'T,  answer  DON'T, 
else  oet  254 


••  Sand  the  negotiation  response  (getting  tha  option  char) 


TCPSend  TCPconnection,  numToChar  (255)  i  numToChar  (it)  t  -> 
(char  1  of  SI 


delete  char  1  of  s 
end  if 
end  if 
end  repeat 
end  teinetCommands 


on  XillConnection 
global  TCPconnection 
If  TCPconnection  it  not  empty  then 

TCPBeloate  TCPconnection 
if  the  result  is  not  empty  then  put 
put  empty  into  TCPconnection 
and  if 

end  ItillConnection 


Itesult:'’  ti  the  result 


on  logout 

global  xotate 

•-  logout  froM  tha  host  eoaputar 


i 


I 


/ 


A" 


A 

\  ,v 


\ 

■  / 


if  XState  Is  "open"  then  sendResponse  "logout"  t  return 
put  "Closed"  Into  XState 
klllConnectlon 
end  logout 


function  recvUntil  terminator 

global  errorState, XMethod, TCPconnection 

put  empty  into  errorState 
put  empty  into  serOut 
put  1  into  Ic 

put  the  ticks  ♦  3600  into  timeout  —  time  out  after  1  minute 
repeat  until  the  ticks  >  timeout 
put  getOutput (serOut)  into  new 
if  new  is  not  serOut  then 
put  new  into  serOut 
put  the  ticks  ♦  600  into  timeout 
end  if 

if  serOut  contains  terminator  then  return  serOut 
end  repeat 

put  "Timed  out  waiting  for  ”  (  terminator  into  errorState 
return  serOut 
end  recvUntil 

function  WaitForOutputSilence  howionq 
put  empty  into  output 
put  the  ticks  ♦  howlong  into  timeout 
repeat  while  the  ticks  <  timeout 
get  OutputAvO 
if  it  is  not  0  then 
put  flushOutputO  after  output 
put  the  ticks  ♦  howlong  into  timeout 
end  if 
end  repeat 
return  output 
end  WaitForOutputSilence 

on  setStatus  newStat 

if  newStat  is  not  empty  then 

put  newStat  into  bg  fid  troystatus 
hide  msg 
end  if 

end  setStatus 
on  UNIXHost 

global  UNIXName, TCPconnection, XState, errorState 
—logout 

put  "Closed"  into  XState 
put  empty  into  errorState 

••  CONHECICD  TO  A  ONIX  HOST 

get  doLoginO 

checkError 

-•*  Give  the  ONIX  host  time  to  finish  logging  us  in  by  waiting 

—  for  2  seconds  of  serial  silence. 

~~  Then  execute  the  Bourne  shell  ( ' sh ' )  and  change  the  prompt 

--  to  '  Itdone'. 

setStatus  "Starting  Bourne  Shei;" 

go  to  card  interface  _ _ _ 
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end  UNIXHost 


function  doLogin 

global  errorState, XMethoa, TCPconrection 

put  empty  into  errorState 
put  empty  into  serOut 
put  false  into  gotln 
put  1  into  Ic 

put  the  tiCKS  *  3600  into  timeout  --  time  out  after  1  minute 
get  the  long  date  it  tne  long  time  H  return 
put  " - "  s  return  after  it 

put  it  into  card  field  “last  Login"  of  earn  “User  Preferences" 

repeat  until  (  (the  ticks  >  timeout)  or  (  serOut  contains  “)  or  (  serOut  contains  “=> 
“) ) 

put  getOutput (serOut I  into  new 

get  *1“  (  numtochar(l)  (  4  numtocnar  ( 12)  4  numtochar  (14)  4-i 

4  numtochar  (  31 )  4  n-mt  on'- 1  r  1 11  a  /  >  4  ;  .mtocnar  (2:5)  4  "!* 

put  rep(it, empty, new)  .nto  new 

if  new  is  not  serOut  tnen 
put  new  into  serOut 
setStatus ( last  line  of  serC-t; 
add  600  to  timeout 
end  if 

put  empty  into  hold 


—  Main  conparlson  loop  of  login  function 


--  This  is  where  you  will  find  the  list  of 
•-  recognized  prompts  end  responses. 


if  orep (“"login  serOut )  is  not  empty  t.hen 
doName 

put  true  into  gotln 
put  the  tic)(S  ♦  3600  into  timeout 
else  if  serOut  contains  "WAlT(r/N)?"  tnen 
sendResponse  ”n"  4  return 

setStatus ( last  line  of  serOut  44  “n  --  Try  later") 
exit  to  HyperCard 

else  if  serOut  contains  “Incorrect"  then 
put  false  into  gotln 

put  empty  into  card  field  "password"  of  card  “User  Preferences" 
else  if  serOut  contains  "lynqi"  then  sendRespor  e  “q"  4  return 
else  if  serOut  contains  “TERM  then  sendResponse  “dumb"  4  .'eturn 
else  if  serOut  contains  “WHICH  COMPUTER?"  or  serOut  contains  -> 
“WHICH  COMUTER?"  then  doPortSelector 

else  if  serOut  contains  "comm-tsl>“  then  doTerminalServer 
else  if  serOut  contains  “BUSY"  then  exit  to  HyperCard 
else  if  serOut  contains  "NO  CARRIER"  then  exit  to  HyperCard 
else  if  serOut  contains  “CONNECTED  TO  “  then  sendReturns 
else 

put  serOut  into  hold 
put  empty  into  serOut 
end  if _ 


put  serOut  after  card  field  "Last  Login"  of  card  "User  Preferences" 
put  hold  into  serOut 
end  repeat 

put  aerOut  after  card  field  "Last  Login"  of  card  “User  Preferences" 
if  gotin  then  return  serOut 
put  "Timed  out  in  login"  into  errorState 
return  serOut 
end  doLogin 

on  doName 

global  passforftp 

get  card  field  "UNIX  login"  of  card  "User  Preferences" 

if  it  is  empty  then  get  ask ("Login : ") 

set  cursor  to  watch 

sendResponse  it  4  return 

get  WaltrorOutputSilence(60) 

setStatus  last  line  of  it 

get  card  field  "password"  of  card  "User  Preferences" 

if  it  is  empty  then  get  ask ("secret", "Enter  the  user  password;*) 

if  it  is  empty  then 

put  empty  into  card  fid  "UNIX  login"  of  card  "User  Preferences" 
end  if 

put  it  into  passforftp 
sendResponse  passforftp  4  return 

get  •••••••••••••»•»••«  --  overwrite  password  immediately 

set  cursor  to  watch 
end  doName 

on  checkError 

global  errorState 

if  errorState  is  not  empty  then 
setStatus  errorState 
exit  to  HyperCard 
end  if 

end  checkError 
function  getOutput  old 

global  XMcthod, TCPconnection 

if  XMethod  is  "Serial"  then 
put  recvUpTo (return, 60, old)  into  new 
else  if  XMethod  is  "MacTCP"  then 

put  TCPrecvUpTo (TCPconnection, return, 10, old)  into  new 

if  numToChar (255)  is  in  new  then  telnetCommands  new 


end  if 

put  replace (linefeed, empty, new)  into  new 

return  new  "  ' 

end  getOutput 

on  sendResponse  what 

global  TCPconnection, XMethod, XState, sendCtrlU, FTPconnection 

if  XMethod  is  "Serial"  then 

if  sendCtrlU  is  "true*  and  XState  is  "Open"  then 
SendSPort  numToChar  (21) 
end  if 

sendSPort  what 

repeat  until  sendSPortOoneO 

end  repeat 

else  if  XMethod  is  "MacTCP"  then _ 


put  the  seconds  into  fid  theTime  of  card  interface 


if  FTPconnection  is  empty  then 

TCPSend  TCPconnection, what 
eise 

TCPSend  FTPconnection, what  i,  return  t  linefeed 
end  if 
end  if 


_end_^endRe££on^ 


BACKGROUND:  bKgnd  id  2753 

background  field  scripts 
FIELD:  bkgnd  field  "screen" 
on  fflouseUp 

—  Ihla  code  allows  the  user  to  click  In  the  field  to  select  a  file  name 

put  the  short  name  of  this  card  into  cardname 
if  cardname  -  "interface"  tr.ej 

I 

put  (t rune (  ( scroi i  of  me  /text. height  of  mei  •  (item  2  of  the  mouseloc  -> 

-  top  of  me) /textheight  of  me))*l  into  theLine 
■**'  get  the  line  number 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLiiie  of  flo  screen  into  fun 
if  last  character  of  fun  •  */"  then 

see  if  it  is  a  directory  or  not 
sendResponse  "cd  "(fun  (  return 
put  empty  into  fid  screen 

I 

set  cursor  to  watch 
sendResponse  "Is  (  return 
UNIXWait  i 


sec  the  scroll  of  me  to 

else 


1 


sendResponse  "more  -f  -i"((fun  (  return 

— sendResponse  "more"((fun  (  return 

put  fun  Into  card  fid  filename  of  card  "file  view" 

set  lockscreen  to  true 

set  the  rect  of  me  to  0,57,512,297 

go  CO  card  "file  view" 

get  UNIXWait () 

put  it  into  fid  screen  of  card  "file  view" 
end  if 

end  if 


hide  msg 
end  inouseUp 


\ 
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BACKGROUND  SCRIPT:  bkgnd  id  4774 


on  FTPprogress  bytes 
set  cursor  to  busy 
set  the  loc  of  the  msg  to  10,300 
put  “Bytes  transferred:*  tt  bytes  into  msg 
end  FTPprogress  bytes 
on  CioseConn 

global  datalD.FTPconnectlon 

TCPRelease  datalD 
wait  SO 

TCPClose  datalD 
wait  50 

TCPRelease  FTPconnection 
wait  50 

TCPClose  FTPconnection 
wait  SO 

put  empty  into  ftpcunnection 
put  empty  into  datalD 
put  empty  into  fid  screen 
get  loc  of  card  button  “list* 
click  at  it 
end  CioseConn 


background  button  SCRIPTS  . 

•  BUTTON:  bkgnd  button  “Home" 

on  mouseUp 

global  logoutme 

—  don't  let  them  go  anywhere  without  logging  out 
If  logoutme  is  not  empty  then 

answer  “You  must  logout  to  go  home"  with  “OK* 
exit  mouseUp 
end  If 


visual  effect  iris  open 
go  Home 
end  mouseUp 


BUTTON;  bkgnd  button  “Strip  control  characters* 
on  mouseUp 

if  the  hilita  of  me  then  conf igureSPort  st ripControlsOn 
else  conf igureSPort  stripControlsOf { 
end  mouseUp 


.......  BUTTON:  bkgnd  button  “Strip  parity  bit* 

on  mouseUp 

If  the  hilite  of  me  then  conf igureSPort  stripOn 
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else  conf igureSPort  stripOff 
end  mouseUp 

BACKGROUND  FIELD  SCRIPTS 
FIELD:  bkgnd  field  "screen" 
on  mouseUp 

put  the  short  name  of  this  card  into  caroname 
if  cardname  -  "interface"  then 

put  (trunc (  (scroll  of  me  /textneignt  of  me)  »  litem  2  of  the  mouseloc  -i 
-  top  of  mel/textheight  of  mel)*i  into  tneLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  of  fid  screen  into  fur* 
if  last  character  of  fun  ■=  "/"  then 

sendResponse  "cd  "tfun  i  return 
put  empty  into  fid  screen 

set  cursor  to  watcn 
sendResponse  "Is  -If"  S  returr. 

— UNIXWait 


set  the  scrol.  of  me  to  1 
exit  mouseUp 

end  if 

sendResponse  "cd  “(fun  (  return 

put  empty  into  fid  screen 

set  cursor  to  watcn 

get  UNIXWait (I 

put  it  into  card  fid  remove 

get  Findinf ieid (card  fid  remove, "directory", false) 
if  it  is  "0,0, 0,0"  then 

sendResponse  "Is  -If"  (  return 
exit  mouseUp 

else 

sendResponse  “more  -f  -l"44tun  (  return 
--sendResponse  "more"44fun  4  return 
CgRet  fun, 60 

put  fun  into  card  fid  filename  of  card  "file  view" 

set  iocicscreen  to  true 

set  the  rect  of  me  to  0,57,512,297 

go  to  card  "file  view" 

—get  UNIXWait  () 

— put  it  into  fid  screen  of  caro  “file  view" 

end  if 
end  if 
hide  msg 
end  mouseUp 


BACKGROUND:  bkgnd  id  6418 

background  button  scripts 
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BUTTON:  bkgnd  button  "Home" 

on  mouseUp 

global  logoutme 

if  logoutme  is  not  empty  then 

answer  "You  must  logout  to  go  home*  with  "OK* 
exit  mouseUp 
end  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 


BUTTON:  bkgnd  button  "Strip  control  characters* 
on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripControlsOn 
else  conf igureSPort  stripControlsOf f 
end  mouseUp 


BUTTON:  bkgnd  button  "Strip  paritv  pir* 
on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripOn 
else  conf igureSPort  stripOff 
end  mouseUp 


BACKGROUND  FIELD  SCRIPTS  . . 

field:  bkgnd  field  "screen* 
on  mouseup 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunc ( (scrol  1  of  me  /textneiqn:  :>t  me)  •  (item  2  of  the  mouseloc 
-  top  of  me) /textheight  of  nie))*l  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  of  fid  screen  into  fun 

sendSPort  "cd  "tfun  t  return 
put  empty  into  fid  screen 
set  cursor  to  watch 
set  the  loc  of  msg  to  10,300 

put  "Checking  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvailableO  into  z 
put  racvChars(z)  into  gotit 

if  last  word  of  line  2  of  gotit  is  "directory*  then 

sendSPort  "more  -f  -I'ttfun  t  return 

put  fun  into  card  fid  filename  of  card  "file  view* 

set  the  rect  of  me  to  0,57,512,  29") 

go  to  card  "file  view* 

put  empty  into  fid  screen 
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else 


sendSPort  "Is  -1”  i  return 
set  the  scroll  of  me  to  1 
end  if 
end  1  f 

hide  msg 
end  mouseup 


.......  BACKGROUND:  bkgnd  id  3806 

.......  background  button  scripts 

.......  BUTTON:  okgnd  Dutton  "Home" 

on  mouseUp 

global  logoutme 

if  logoutme  is  not  empty  then 

answer  "You  must  logout  to  go  nome"  witn  "CK" 
exit  mouseUp 
end  if 

visual  effecu  iris  open 
go  Home 
end  mouseup 


.......  BUTTON:  bkgnd  button  "Strip  control  characters" 

on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripControlsOn 
else  conf igureSPort  stripControisOf f 
end  mouseup 


•  BUTTON:  bxgnd  button  "Strip  parity  oit" 


on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripOn 
else  conf igureSPort  stripOff 
end  mouseUp 


.......  background  field  scripts 

a......  FIELD:  bxgnd  field  "screen" 

on  mouseUp 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunc ( ( scrol  1  of  me  /textneight  of  me)  • 

«  top  of  me) /textheight  of  me))+l  into  theLine 
select  line  theLine  of  fid  screen 


mouseloc  -i 


put  last  word  of  line  theLine  of  fid  screen  into  fun 
sendSPort  "cd  "tfun  t  return 
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put  empty  into  fid  screen 

set  cursor  to  watch 

set  the  loc  of  msg  to  10,300 

put  “Checking  for  file  or  directory  type  — "  into  msg 
wait  300 

put  charsAvailable ( )  into  z 
put  tecvChars(z)  into  gotit 

if  last  word  of  line  2  of  gotit  is  “directory"  then 

sendSPort  “more  -f  -I'ttfun  (  return 
put  fun  into  card  fid  filename  of  card  “file  view* 
set  the  rect  of  me  to  0,57,512,297 
go  to  card  “file  view" 
put  empty  into  fid  screen 
else 


sendSPort  “Is  -1"  (  return 
set  the  scroll  of  me  to  1 
end  if 
end  if 

^ide  msg 
end  mouseUp 


BACKGROUND;  bkgnd  id  7265 

background  button  scripts 

I 

BUTTON:  bkgnd  button  “Home" 

on'mouseUp 

global  logoutme 

! 

..f  logoutme  is  not  empty  then 

answer  “You  must  logout  to  go  home"  with  “OK" 
exit  mouseup 
end  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 


.  BUTTON:  bkgnd  button  “Strip  controi  cnaracters" 
on  mouseUp 

if  the  hilite  of  mn  tnen  conf igureSPort  stripControlsOn 
else  conf IgureSPort  stripControisOf f 
end  mouseup 


BUTTON:  bkgnd  button  “Strip  parity  bit" 
on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripOn 
else  conf IgureSPort  stripOff 
end  mouseup 
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BACKGROUND  FIELD  SCRIPTS 


FIELD:  bKgnd  field  "screen" 
on  mouseUp 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunc  (( scroll  of  me  /textheiqht  of  me)  »  (item  2  of  the  mouseloc  -i 
-  top  of  me) /textheiqht  of  me))*!  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  of  fid  screen  into  fun 

sendSPort  *cd  "tfun  I  return 
put  empty  into  fid  screen 
set  cursor  to  watcn 
set  the  loc  of  msg  to  1C, 300 

put  "Checking  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvailabie t )  into  z 
put  recvChars(z)  into  got  it 

if  last  word  of  line  2  of  qotit  is  "directory"  then 

sendSPort  "more  -f  -I'sifur.  i  return 
put  fun  into  card  fid  filename  of  ciro  “file  view" 
set  the  rect  of  me  to  0,57,512,297 
go  to  card  "file  view" 
put  empty  into  f lo  screen 
else 


sendSPort  "Is  -I"  t  return 
set  the  scroll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  mouseup 


BACKGROUND:  bkgnd  id  S-llt 

.......  background  BUTTON  SCRIPTS 

BUTTON:  okgnd  button  "Home" 

on  mouseUp 

global  logoutme 

if  logoutme  is  not  empty  then 

answer  "You  must  logout  to  go  home"  with  "OK" 
exit  mouseUp 
ond  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 
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BUTTON:  bkqnd  button  "Strip  control  characters* 
on  mouseUp 

if  the  hilite  of  me  then  conf iqureSPort  st ripControlsOn 
else  crnf IqureSPort  stripControlsOf f 
end  mouseup 


.......  BUTTON:  bkqnd  button  "Strip  parity  bit* 

on  mouseup 

if  the  hlllte  of  me  then  conf iqureSPort  strlpOn 
else  conf IqureSPort  stripOff 
end  mouseup 


.......  BUTTON:  bkqnd  button  "Prev" 

on  mouseUp 

if  fid  recoivinq  >  0  then 

answer  "Wait  a  second,  still  qatherinq  data!* 

exit  mouseUp 
end  if 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "file  view*  then 

if  fid  screen  ot  this  card  «  empty  then 
put  empty  into  fid  screen  of  this  card 
CntrZ 

put  Che  result  into  fun 
sendSPorc  fun 

wait  100 

sendSiPort  "Is  -1*  (  return 
end  if 


end  if 


set  lockscreen  to  true 
go  to  prev  card 

hide  «isq 
end  mouseUp 

.......  background  field  SCRIPTS 

.......  FIELD:  bkqnd  field  "screen* 

on  mouseUp 

put  Che  short  name  of  this  card  into  cardname 
if  cardname  «  "interface*  then 

put  (trunc ( (scroll  of  me  /textheiqht  of  me)  ♦  (item  2  of  the  mouseloc  -i 
-  top  of  me) /textheiqht  of  me))-*!  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  cf  f la  screen  into  fun 
sendSPort  "cd  "tfun  t  return 
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put  empty  into  fid  screen 

set  cursoi.  to  watch 

set  the  loc  of  msg  to  10, 300 

put  "Checking  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvaiiable  ( )  into  z 
put  recvChars(z)  into  gotit 

if  last  word  of  line  2  of  gotit  is  “directory"  then 

sendSPort  “more  -f  -l"t4fun  t  return 
put  fin  ini;o  card  fid  filename  of  card  “file  view" 
set  the  rect  of  me  to  0,57,512,297 
go  to  card  “file  viaw" 
put  empty  into  fid  screen 
else 


sendS;  “Is  -1"  (  return 
set  th.  roll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  mouseUp 


CARD  SCRIPT:  'Jser  Prefere.'.ces 
on  oponCard 

put  empty  into  fid  troystatus 
hide  fid  screen 
end  openCard 


.......  CARD  BUTTON  SCRIPTS 

.......  BUTTON:  card  button  gi.*" 

on  mouseUp 

global  TCPconnect ion, XStatc, XMet hod 
put  “MacTCP"  into  XMethod 

set  cursor  to  watch 

if  TCPconnection  is  not  empty  tnct 
logout 
end  i  f 

setStatus  “Opening  a  MacTCP  connection  to  UNIX  host" 

•-  Connect  to  the  'telnet'  port  of  the  UNIX  host. 

--  Changing  the  "23"  here  can  change  the  type  of  connection 
put  TCPActiveOpen  (item  1  of  card  field  “IP  address",  23,  0)-. 
into  TCPconnection 

if  TCPconnection  contains  "fail"  then 
put  “The  Result:"  t(  TCPconnection 
put  empty  into  TCPconnection 
put  “Closed"  into  XState 
exit  mouseUp 
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--  Connect  to  tho  UNIX  host  t  we'r«  don« 

UNIXHost 

letstatus  "MacTCP  connection  to  UNIX  host  established” 
put  "Open”  into  XState 

end  mouseup 

.......  BUTTON:  card  button  "Nee  Button” 

on  mouseUp 

show  card  fid  "last  login* 
end  mouseup 


.......  BUTTON:  card  button  “New  Button” 

on  mouseUp 

show  card  fid  help 
end  mouseup 


.......  CARD  FIELD  SCRIPTS  . 

.......  FIELD:  card  field  "Last  Login” 

on  mouseUp 
hide  me 
end  mouseUp 


FIELD:  card  field  "help* 

on  mouseUp 
hide  me 
end  mouseUP 


.......  CARD  SCRIPT:  interface 


on  openCard 

global  TCPconnection 

put  empty  Into  fid  screen  > 

if  TCPStatelTCPconnectlon)  is  "establi'shed"  then 


sendResponse  "Is  -If”  t  return  1 

-•  thie  type  of  listing  is  used  to  list  the  directories  in  singli 
--  eoiomns  with  no  file  sisds 
end  if  \ 


set  lockscreen  to  true  1 

set  the  rect  of  fid  screen  to  0,  34, 2i0,  lU? 
end  openCsrd 


-•  CARD  BUTTON  SCRIPTS 


.......  BUTTON:  card  button  "Send  UNIX  command' 


on  nouiaUp 


asK  "Send  what  UNIX  cnTitana" 
put  empty  into  fid  screen 
londReiponse  it  (  return 
qet  UN  I XWa  r t ( I 

put  it  into  fid  screen  of  this  card 


end  mouseUp 


.......  BUTTON:  card  button  "List" 

on  mouseUp 

global  ftp.thereis 
if  ftp  e  1  then 

— put  thereii  into  fid  title 
--put  empty  into  card  f.d  FTPs.te 
put  empty  into  fid  screen 

sendResponse  ”ls  (  ret  .r' 

--get  UN  I XWa it ( ) 

--put  it  into  fio  screen 

set  the  scroll  of  fid  scree-  to  I 


end  i  f 

if  ftp  •  1  then 

set  cursor  to  watch 
put  empty  into  fid  screen 

--put  'Sending  command"  into  card  fid  mystatus 
sendResponse  "Is  -If"  (  return 
put  empty  into  (id  screen 
get  WaitForOutputSi.ence (250) 
if  it  is  empty  then 

repeat  until  it  •  empty 

get  Wait ForOut p.t S ; . e-ce  1 6: I 

--put  “Waiting  ior  rcspo"ce"  ;'to  card  f .a  Oiaq 


end  repeat 
end  if 

put  xStrip(it, iinefeedi  into  fun 
delete  last  line  of  fun 
put  fun  into  fid  screen 


end  if 

--put  “Ready"  into  card  fid  mystatus 


end  mouseUp 


.......  BUTTON:  card  button  "Logout" 

on  siouseUp 
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global  logoucme 

answer  "Logout  now?”  with  "NO”  or  "Yes” 
if  it  is  "Yes”  then 

put  empty  into  logoutme 
set  cursor  to  watch 
put  empty  into  fid  screen 
sendResponse  "logout”  1  return 
wait  200 

sendResponse  "logout”  (  return 

wait  200 

logout 

answer  "You  have  been  logged  out” 
end  if 


end  mouseup 

BUTTON:  card  button  "Move  Up” 
on  mouseUp 

sendResponse  "cd  I  return 
wait  100 

put  empty  into  fid  screen 

sendResponse  "Is  -If”  t  return 
— UNlXWait 

sec  Che  scroll  of  fid  screen  to  1 


end  mouseUp 


BUTTON:  card  button  "Rename  tile" 
on  mouseup 

global  TCPconnection 


put  empty  into  card  fid  remove 

put  "Please  wait...  gathering  data”  into  msg 

set  cursor  to  busy 

put  xgecScreen (f Id  screen, return)  into  card  fid  remove 


"delete  item  1  of  cara  fid  remove 
put  "Choose  file....”  into  msg 
put  card  field  "remove”  into  theList 
OoLisc  999, theList, one 

--  get  the  file  list  from  the  field 
put  the  result  into  thelist 
if  thelist  is  not  empty  Chen 

put  item  2  of  thelist  into  thelist 

answer  "Rename  file”tithelisttt”?”  with  "OK”  or  "Cancel 
if  it  is  "Cancel”  then 
hide  msg 


■  v" 
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exit  mouseUp 
end  if 

ask  “Enter  new  name  (one  word  please) “with  theiist 
put  it  into  new 
if  new  -  theiist  then 
answer  “Not  one  word" 
exitmouseUp 
end  if 


put  the  number  of  words  in  new  into  numword 
if  numword  •  1  then 

SendResponse  “mv'ttthelisttinew  (  return 
answer  “File  has  been  renamed" 
put  empty  into  fid  screen 
wait  SO 

send  mouseUp  to  card  button  list 

else 

answer  “Not  one  word" 
end  if 


end  if 
hide  msg 
end  mouseUp 


.......  BUTTON:  card  button  “Mail" 

on  mouseUp 

global  messnum,  TCPconnection 
put  empty  into  messnum 


answer  “Check  mail  or  send  it?"  with  “Cancel"  cr  “Send"  or  “Check" 
if  it  is  “Cancel"  then 
exit  mouseUP 
end  if 

if  it  is  “Send"  then 
go  to  card  “mail  card" 
exit  mouseUp 
end  if 

set  cursor  to  watch 
--put  empty  into  fid  screen 
put  empty  into  card  fid  remove 
SendResponse  “msg"  (  return 

—  interface  to  the  aiail  system  on  the  SUN  (msg) 
wait  100 


put  TCPRecvUpTo (TCPconnection,  linefeed, 0, empty)  into  newinput 
repeat  until  newinput  is  empty 

put  TCPRecvUpTo (TCPconnection, linefeed, 0, empty)  into  newinput 
put  newinput  after  last  character  of  card  field  remove 
end  repeat 


45 


/ 


/ 


set  the  scroll  of  fid  screen  to  1 

—  try  to  get  the  number  of  messeges  with  this  routine,  or  If  there  ere  any 

--  messages  to  read 

get  Flndlnrield(card  fid  remove, "total*, 'false*. 0) 
if  it  -  •0. 0,0,0*  then 

get  FindInField(card  fid  remove, "empty*, "false*, 0) 
if  it  -  *0,0, 0,0*  then 

answer  “Error  in  checking  mail,  try  again* 

exit  mouseUp 

end  if 

answer  “No  new  messages* 

—put  empty  into  fid  screen 
— sendSPort  “Is  -1*  (  return 


set  the  scroll  of  fid  screen  to  1 
exit  mouseUp 

else 

get  FlndlnField (card  fid  remove, "binary". "false", 0) 
if  it  -  “0,0, 0,0"  then 

get  FindInField (card  fid  remnvo, "rossaqe", "fal se", 0) 
put  item  2  of  it  into  iinenum 

put  the  number  of  words  in  line  Iinenum  of  cd  fid  remove  into  temp 
subtract  2  from  temp 

put  word  temp  of  line  iinenum  of  cd  fid  remove  into  theCount 


set  the  loc  of  the  msg  to  10,300 
if  theCount  •  “1*  then 

put  “You  have  “ttheCountt*  message'  into  cd  fid  msgname  of  card  themessage 

else 

put  “You  have  “StheCountt*  messages*  into  cd  fid  msgname  of  card  themessage 
and  if 


go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  •  1  to  theCount 


put  xc*;*  after  last  character  in  card  fid  theList 


end  repeat 


else 

get  FlndlnField (card  fid  remove, "message", "false", 0) 
put  item  2  of  it  into  Iinenum 

put  word  2  of  line  Iinenum  of  cd  fid  remove  into  theCount 
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set  the  loc  of  the  msq  to  ;c,3ac 
if  theCount  «  “1"  then 

put  "You  have  ''ttheCounts"  messacje"  into  cd  fia  msgname  of  caro  therressaoe 
else 

put  "You  have  "4theCount4“  s'essaqes"  into  cd  fid  nisqname  of  caro  themessaqe 
end  if 

qo  to  card  themessaqe 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  •  1  to  theCount 

put  x4";"  after  last  character  in  card  fid  theList 
end  repeat 

end  if 
end  if 

hide  msq 

end  mouseUp 


.......  BUTTON:  card  button  "De.ete  f'i.e” 

on  mouseup 

qiobai  TCPconnection 

put  empty  into  card  fid  remove 

put  empty  into  card  fid  remove 

put  ‘Please  wait...  qatherinq  data"  into  msq 

set  cursor  to  busy 

put  fid  screen  into  dataqet 

put  xqetScreen ( f id  screen, retur: )  into  caro  fio  remove 

put  "Choose  file...."  into  msq 

put  card  field  "remove"  into  theList 

OoList  999, theList, one 

put  the  result  into  theiist 

if  theiist  is  not  empty  then 

put  item  2  of  theiist  into  theiist 

answer  "Remove  f iie"44thelist44"7"  with  "OK"  or  "Cancel" 
if  it  is  "Cancel"  then 
hide  msq 
exit  mouseUp 
end  if 

sendResponse  "rm  "4quote4theiist4quote  4  return 
wait  100 

sendResponse  "y"  4  return 
put  empty  into  trash 

put  TCPRecvUpTo(TCPconnection, linefeed, 0. empty)  into  newinput 


r«p«at  until  newlrput  is  empty 


put  TCPRecvUpTo(TCPconnection, linefeed, 0, empty)  into  newinput 
put  newinput  after  last  character  of  trash 
end  repeat 

put  empty  into  fid  screen 

answer  “File  has  been  removed"  with  "OK" 


put  empty  into  fid  screen 

sendResponse  "Is  -If"  t  return 

set  the  scroll  of  fid  screen  to  1 

end  if 

hide  msg  box 
end  mouseUp 

—if  the  optionkey  is  down  then  pass  mouseup 
—put  card  field  list  into  theList 
— DoList  999, theList, one 
—put  the  result 
—end  inouseUp 

BUTTON:  card  button  "New  Button" 
on  fflousetlp 

get  the  loc  of  card  button  mail 
click  at  it 
end  fflouseUp 


BUTTON:  card  button  "Transfer  files" 
on  mouseUp 

—  This  routine  temnsfara  a  file.  There  Is  a  binary  to  hex  external  comaand 

—  that  la  used  to  transfer  the  file  to  the  SON.  The  code  opens  up  a  separate 

—  FTP  type  connection  In  addition  to  the  Telnet  type  connection  which  the 
--  user  has  already  established. 

global  FTPconnection,dataIO,passforftp 
set  lockscreen  to  true 

answer  "Do  you  want  to  send  or  receive  a  file"  with  "Send"  or  "Receive"  or  "Cancel” 
put  it  into  ans 

if  a,is  is  "Cancel"  then  exit  mouseUp 
if  ans  is  "Receive"  then 
put  "Please  wait...  gathering  data"  into  msg 
put  xgetScreen (fid  screen, return)  into  card  fid  remove 
put  "Choose  file..,.”  into  msg 
put  card  field  "remove"  into  theList 
DoList  999, theList, one 
put  the  result  into  thelist 
if  thelist  is  not  empty  then 

put  item  2  of  thelist  into  theFile 
get  length (theFile) 
get  char  lt-2  to  it  of  theFile 
if  it  is  •  iqx"  then 
put  "H"  into  xType 
else 
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put  “A"  into  xType 

put  NewFileName(“Save  as:",  theFile)  into  theFile 
end  if 

else 

hide  msg 
exit  mouseup 
end  if 

end  if 
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if  ans  is  "Send"  then 

answer  "Is  the  file  Text  or  an  Application"  with  “Text"  or  “Appl" 
put  it  into  xType 
if  xType  is  “Appi"  then 

put  fileNameO  into  theFile 

else 

put  fileName (“TEXT")  into  theFile 
end  if 

if  theFile  is  empty  then  exit  mouseUp 

put  “stack"itquoteitheFiie4quote  into  remFile 

gimeLast  remFile 

put  the  result  into  remFile 

if  xType  is  “Appl"  then 

put  “.hqx"  after  remFile 

else 

put  “.txt"  after  remFile 
end  if 

put  Translate)  *  ;  I \, /()  1 1  <>! •()*'♦•' "  (  quote,  -> 

LeafName)  remFile  I  )  into  remFile 
asl(  “Kame  to  save  as  on  the  host:"  with  remFile 
end  if 

put  TCPActiveCpen (item  1  of  card  field  “IP  address"  of  card  “User  Preferences',  21, 

into  FTPconnection 

put  empty  into  fid  screen 

wait  100 

put  “Opening  transfer  connection..."  into  .msg 
put  TCPCharsAvailable (FTPconnection)  into  x 

put  TCPRecvChars (FTPconnection, X)  after  last  character  in  fid  screen 

get  FindlnFleld ( f Id  screen, "27u", "false", 0) 
if  it  e  “0,0, 0,0"  then 

put  card  fid  “UNIX  login'  of  card  “User  Preferences"  into  usrname 
sendResponse  “USER"  ii  usrname 
wait  100 

put  empty  into  fid  screen 

put  TCPCharsAvailable (FTPconnection)  into  x 

put  TCPRecvChars (FTPconnection, X)  after  last  character  in  fid  screen 
get  FindInField(fld  screen, "331", "false", 0) 
if  it  m  “0,0, 0,0"  then 

sendResponse  “PASS'tipassforftp 
wait  100 

put  TCPCharsAvailable (FTPconnection)  into  x 
put  X  into  msg 

put  TCPRecvChars (FTPconnection, X)  after  last  character  in  fid  screen 
put  TCPPassiveOpen (  0,  0,  0  )  into  datalO  —  create  a  new  data  conn. 
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If  datalD  contains  "fail'  Chen 


put  empty  Into  datalO 

exit  to  HyperCard  -r  don't  continue  With  file  transfer 
end  if 

wait  until  TCPScate(  datalD  )  contains  ''waiting*  --  happens  asynch. 


put  datalD  into  msg 

sendResponse  "PORT"  4(  TCPGetAddr(  daCalD,  •local*  )  —  get  local  address 


put  char  1  of  getLineO  into  resp 


put  "A*  into  typeCode 
if  resp  is  *2*  then 

sendResponse  "TYPE*  (4  cypeCode  —  specify  the  transfer  mode 
put  char  1  of  gecLlneO  into  resp 

if  resp  is  *2“  and  typeCode  is  *1*  then 

sendResponse  “TYPE  L  8"  —  set  byte  length  to  8  for  Binary 
get  getLlneO  —  iv^nore  the  response 
end  if 
end  if 

if  resp  is  not  *2*  Chen 
TCPClose  datalO 

exit  to  HyperCard  —  don't  continue  with  file  transfer 
end  if 

end  if 
end  if 
wait  200 

if  ans  is  'Send*  then 
SendResponse  "STOR*  44  remFile 
if  char  1  of  getLineO  is  not  •!*  then 
TCPClose  datalD 
TCPRelease  dataZD 
end  if 

if  NaitForDataConO  then 
if  xType  is  "Appl*  then 

FTPhqXfer  datalD,  "send*,  theFiie 
if  char  1  of  the  result  is  •§*  then 
answer  the  result 
closeConn 
end  if 

else 

FTPxfer  datalD,  'send*,  "ascii*,  theFiie 
if  char  1  of  the  result  is  "5*  then 
answer  the  result 
closeConn 
end  if 
end  if 
end  if 
end  if 


if  ans  is  "Receive*  then 
SendResponse  "RETR*  44  theFiie 
if  char  1  of  getLineO  is  not  "1"  then 


cioseConn 


end  if 

if  WaitForDataCon ( )  inen 
if  xType  is  “H*  then 

FTPhqXfer  datalD,  "receive" 
if  char  1  of  the  result  is  "§"  then 
answer  the  result 
closeConn 
end  if 
else 

FTPxfer  datalD,  "receive",  "ascii",  theFiie 
if  char  1  of  the  resuit  ts  "5"  then 
answer  the  result 
closeConn 
end  if 
end  if 
end  it 
end  if 
CloseConn 

answer  “Transfer  complete" 
hide  msg 
end  rnouseUp 


function  getLine 

global  FTPconnect ion 

repeat  IS  times 

set  the  cursor  to  busy 

get  TCPRecvUpTo(  FI  Pconrect  ;o",  .;-e?e»»o,  6C,  empty  ) 
if  it  is  not  empty  then  exit  repeat 
end  repeat 

return  it 
end  getLine 

function  WaitForDataCon 
global  datalD 

repeat  until  TCPState(  datalD  I  is  "established" 

if  TCPState(  datalD  1  contains  "c.ose"  then  return  false 
idleCursor 
end  repeat 

return  true  —  signal  connection  Is  estao.lsnea 
end  WaitForDataCon 


BUTTON;  card  button  "mbox" 
on  mouseup 

global  TCPconnection, mbox 
put  empty  into  card  fid  remove 
put  1  into  mbox 

SendResponse  “msg  mbox"  (  return 
wait  100 


put  TCPRecvUpTo (TCPconnect ion ,! i ne feed, 0, empty  I  into  newinput 
repeat  until  newinput  is  empty 

put  TCPRecvUpTo (TCPconnection,  linefeed,  0, empty)  into  newinput 
put  newinput  after  last  character  of  card  field  remove 
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end  repeat 


—put  xStripCcard  fid  remove,  return)  into  card  fid  remove 
set  the  scroll  of  fid  screen  to  1 
get  FindInFieldicard  fid  remove, "total", “false", 0) 
if  it  -  "0,0, 0,0*  then 

get  FindInField(card  fid  remove, "empty*. "false", 0) 
if  it  -  *0. 0,0,0*  then 

answer  *Error  in  checking  mail,  try  again* 

exit  mouseup 

end  if 

answer  '‘No  new  messages" 

—put  empty  into  fid  screen 
— sendSPort  "Is  t1"  t  return 


set  the  scroll  of  fid  screen  to  1 
exit  mouseUp 

else 

get  FindInField (card  fid  remove, "binary", "false", 0) 
if  it  -  *0,0, 0,0"  then 

get  FindInField (card  fid  remove, "message", "false", 0> 
put  item  2  of  It  into  linenum 

put  the  number  of  words  in  line  linenum  of  cd  fid  remove  into  temp 
subtract  2  from  temp 

put  word  temp  of  line  linenum  of  cd  fid  remove  into  theCount 


set  the  loc  of  the  msg  to  10,300 
if  theCount  •  "1"  then 

put  *you  have  "itheCountt*  mbox  message" 

else 

put  "You  have  "ttheCountt"  mbox  messages* 
end  if 


into  cd  fid  msgname  of  dard  themessage 


into  cd  fid  msgname  of 


icard  themessage 


go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  wltn  x  »  1  to  theCount 


put  x(*;*  after  last  character  in  card  fid  theList 


end  repeat 


else 


52 


1  V- 


7^ 


/ 


get  FindInField (card  fid  remove, "message", "false", 0) 
put  item  2  of  it  into  linenum 

put  word  2  of  line  linenum  of  cd  fid  remove  into  theCount 


set  the  loc  of  the  msg  to  10,300 
if  theCount  =  *1"  then 

put  "You  have  "ttheCounts"  rabox  message"  into  cd  fid  msgname  of  card  themessage 
else 

put  “You  have  “ttheCountt"  mbox  messages"  into  cd  fid  msgname  of  card  themessage 
end  if 

go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  -  1  to  theCount 

put  xi";"  after  last  character  in  caro  fid  theList 


end  repeat 

end  if 
end  if 

hide  msg 


end  mouseUp 
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CARD  FIELD  SCRIPTS 
FIELD:  card  field  "HEX" 


on  mouseup 
hide  me 
end  mouseUp 


CARD  SCRIPT:  Mail  Card 

on  opencard 
hide  bg  btn  1 


hide  fid  "receiving" 
hide  fid  "screen" 
end  openCard 


on  closeCard 
show  bg  btn  1 
show  fid  screen 
show  fid  "receiving" 


t 
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end  closeCard 


CARD  BUTTON  SCRIPTS 
BUTTON:  card  button  "Send” 

on  mouseUp 

—  This  aenda  a  aeaaage  la  a  ByparCard  field  to  the  SDK  and  la  aend  aa  a 

—  Maaage.  The  Important  thing  here  la  to  atrip  out  any  carralge  returna  that 

—  might  be  In  the  flelda  and  add  them  In  the  correct  placea  for  the  SDN.  The 

—  flelda  In  hyper  card  have  a  word  wrap  function  ad  a  meaaage  can  be  typed 
with  no  carralge  returns .  The  CgRet  external  command  adds  carralge  returna 

—  to  the  end  of  a  variable  of  ao  many  characters.  In  this  case  60,  Xt  also 

—  checks  to  make  sure  that  It  does  not  break  up  any  words,  or  ruin  any 

--  existing  carriage  returns . 

global  Includedflle,  TCPconnectlon 
set  the  loc  of  the  msq  to  10,300 

if  includedflle  is  empty  then 

answer  "Send  this  message?”  with  “No”  or  “Yes"’ 
if  it  is  “No"  then 
exit  mouseUp 
end  if 
end  if 


set  cursor  to  watch 

if  card  fid  “To*  is  empty  then 

answer  “There  is  no  name  to  send  to!"  with  “Sorry" 
exit  mouseUp 
end  if 

put  card  fid  “To"  into  person 

put  xStrip(person, return)  into  temp 

stripLastReturn  temp 

put  the  result  into  cd  fid  “To" 

put  card  fid  “To"  into  person 


put  card  fid  “cc"  into  x 

put  xStripfx, return)  into  x 

StripLastReturn  x 

put  the  result  into  card  fid  “cc” 

put  card  fid  “cc"  into  carbon 


put  “Sending  message....”  into  msg 


put  card  fid  “text”  into  y 
if  y  is  empty  then 
answer  “There  is  no  text  to  send!” 
exit  mouseUp 
end  if 

CgRet  y,  60  --  put  carriage  returns  at  the  end  of  every  60  characters 
put  the  result  into  fun 
put  y  into  card  fid  “text” 


sendResponse  “sena“  (  return 
wait  iOO 

—  this  chacks  to  sea  if  they  are  sanding  the  mail  to  more  than  one 

put  the  number  o‘  items  in  cara  ild  "To"  into  iinenum 
if  linenum  >  1  t.ien 

repeat  with  n  ■  1  to  iinenum 

SendResponse  item  x  of  cd  fid  “To"4"\"4  return 
wait  60 

put  "Sending  to:’'ritem  x  of  co  fia  "To"  into  msg 
wait  60 

end  repeat 

sendResponse  *”  4  return 

get  UNIXWaito 

put  it  into  card  t la  error 

else 

SendResponse  person  i  return 
end  if 
wait  ICO 


get  UNIXWaito 

put  it  into  card  f *a  error 

put  the  number  of  items  in  cara  fid  "cc"  into  iinenum 
if  iinenum  >  1  then 

repeat  with  x  *  1  to  Iinenum 

SendResponse  item  x  of  co  f^o  “cc"4"\"t  return 
wait  60 

put  "Sending  toO'titem  x  of  cd  fid  "cc"  into  msg 
wait  60 

end  repeat 

sendResponse  "”  (  return 

get  UNIXWaito 

put  it  into  card  f.a  error 

else 

SendResponse  carbon  (  return 
end  if 
wait  100 

put  card  fid  "Subject"  into  sub 
put  xStrip(sub, return)  into  temp 
stripLastReturn  temp 
put  the  result  into  cd  fid  "Subject" 
put  card  fid  "Subject"  into  sub 

SendResponse  sub  (  return 

wait  100 


SendResponse  fun  t  return 
get  UNIXWaito 
put  it  into  card  fid  error 
wait  100 

CntrD  —  this  sends  a  control  D  to  the  SUN  to  end  the  aessage  routine 


person 
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put  th*  r*»ult  into  tun 
ScndRvtponsc  tun  4  rvturn 

qet  UNtxwaltO 

put  it  Into  c«rd  fid  •rror 

wait  100 

put  “aandinq  control  d..."  into  m»q 

If  includedfile  1§  not  empty  then 

aniwer  “include  file  *4 i ncl udedf i ie  4"?"  with  “No”  or  “Yes” 
if  it  i»  “Yes”  then 
set  cursor  to  watch 

Ser IResponse  “file  Include"  4  return 
wait  100 

SendResponse  includedfile  4  return 
put  empty  into  includedfile 
end  if 
end  if 


SendResponse  "send"  4  return 

qet  ONIXWaito 

put  it  Into  card  fid  error 

wait  ICO 

— put  empty  into  cd  fid  error 

--put  TCPCharsAvailabie  (TCr-conrect  ion)  into  fu" 

--put  TCPRecvChars  ITCPcornection, fu")  into  card  fid  error' 

—qet  UNIXWaitd 

—put  it  into  card  fid  error 

put  TCPRecvUpTo (TCPconnection , t etur n , 0, empt y|  into  newlnput 
repeat  until  newlnput  is  empty 

put  TCPRecvUpTo (TCPconnect i on , ret u r ' , 0, empt y»  into  newlnput 

put  newlnput  after  last  character  of  card  field  error 
end  repeat 


put  Findlnrieldfcard  fid  error, "Message  Posted",  falsel  into  errortime 
if  errortime  •  “0,0, 0,0"  then 
beep  1 

answer  “Message  w^s  sent  successfully"  with  “Great'" 

else 
beep  1 

SendResponse  "quilt  4  return 
wait  100 

SendResponse  *y”  4  return 

answer  “Sorry  an  error  of  some  Kind,  see  field  below"  with  “Darn" 
set  locKscreen  to  true 
•how  card  fid  error 
end  if 

P-t  “••••ClicK  on  field  to  close****"  after  last  line  in  card  fid  error 
put  the  number  of  lines  of  card  flo  error  into  fun 
multiply  fun  by  10 

set  the  scroll  of  card  fid  error  to  fun 
hide  msg 
end  mouteUp 


-•  R'JTTON:  card  button  “Options" 
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on  mojtedown 

-*  th«  9lobal  hara  li  to  chack  and  taa  If  thay  hava  alraady  Includad  a  fila 
--  to  tand 

global  i re  1 uded f i Ip,  TCPconnect ion 
put  the  mouseLoc  into  myPlace 
put  Item  I  ot  myPiace  -  10  .ntu  r.ciiz 
put  Item  i  ot  myPiace  -  -PJ  into  vert 

get  PopUpMenu ("Groups; Edit  Groups; I nclude  File;Change  Directory;Move  Up  Directory, Clear 
Fieia",t,  vert,  horizl 

if  it  is  0  then  answer  "This  is  a  pop  up  menu* 
if  it  is  1  then 

set  cursor  to  busy 
set  iocXscreen  to  true 

go  to  card  "groups" 


put  empty  into  card  fid  f,.n 

repeat  w.th  x  •  I  to  the  r.^*oe:  ot  .».'.es  ,n  card  f*a  "group  name" 

put  item  lof  ;.-e  x  t  uro  ‘.a  "gro,p  name”  1 i  f  ter  last  character  of  card  fid  fun 
er.drepeat 

put  card  fid  fun,  into  t.-e^.st 

DoList  999, card  fid  fun, one 
put  the  result  into  (un 
.f  fun  is  empty  t.^en 
go  card  "mail  card" 


exit  mouseOown 


and  i  f 


put  item  2  of  fun  into  gotit 

gat  FihdlnFleld (card  field  "group  name", got  It , "t rua", 0) 
put  item  2  of  it  into  llnenurbar 

it  it  is  0  then 

answer  "error  of  some  <.'o" 
end  1  f 

put  0  into  start 
repeat  forever 

get  F  . -di  nfieid (ca: o  ;,d  "oruuu  ame" , " ( ", "t r ,e" , St  a rl I 
it  item  2  of  it  -  iinanumber  tnen 

axlt  repeat 

else 

put  item  1  of  it  into  start 

next  repeat 
and  if 
and  repeat 

put  item  1  of  It  into  flrstspot 

gat  rindlnriald (card  fid  "group  name*, *) ", *t rue", f i r it  spot  I 
put  item  I  of  it  into  sacondspot 
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put  character  firsttpot  to  secondspot  of  card  fid  "group  name"  into  address 

delete  character  1  of  address 

delete  last  character  of  address 

put  empty  into  card  fid  "To"  of  card  "mail  card" 

put  address  into  card  fid  "To"  of  card  "mail  card* 

go  to  card  "mail  card" 


set  lockscreen  to  false 
end  if 


if  it  is  2  then 

go  to  card  "groups* 
end  if 

if  it  is  3  then 
set  cursor  to  busy 
set  lockscreen  to  true 

put  fid  screen  of  card  interface  into  dataqet 
if  dataget  is  empty  then 


SendResponse  "Is  -If"  (  return 
wait  100 

put  TCPRecvUpTo (TCPconnect ion, linefeed,  0, empty)  into  newinput 
repeat  until  newinput  is  empty 

put  TCPRecvUpTo(TCPconnection, linefeed, 0, empty)  into  newinput 

put  xStrip(newInput, linefeed)  after  last  character  of  field  screen  of  card  interface 
end  repeat 
end  If 

put  empty  into  card  fid  remove 

put  fid  screen  of  card  interface  into  dataget 

--  jigetScreen  is  an  external  cosusand  to  get  the  contents  of  a  field  and 
—  pass  it  to  OoList  as  quickly  as  possible.  I  have  done  this  with 
--  regular  HyperTalk  scripts  and  it  can  be  vary  slow. 

put  xgetScreen (dataget, return)  into  card  fid  remove 

put  "Choose  file....*  Into  msg 


put  card  field  "remove"  into  theList 
If  theList  is  empty  then 
hide  msg 

beep  1  ^  ‘ 

answer  "No  files  in  directoryT  try  changing  directory" 
exit  mousedown 
end  if 

DoLlst  999, theList, one 
put  the  result  into  gotit 


if  gotit  is  empty  then 
go  card  "mail  card" 
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hide  mstj 
exit  mousedown 
end  ii 


put  item  2  of  gotit  into  inc.uoedfile 
answer  ''inciude"44inciuaedf  lie  w;Ln  "Cancei" 
if  it  is  "Cancel"  then 


hide  msq 
exit  mouseOown 
end  i  f 


go  to  card  “nail  card" 

answer  *f  i le"S 4  incl  joeof  i  .es 4 " ire- -oed,  rew?"  witn  "Car.ee; 

if  it  is  "OK*  then 

get  the  loc  of  card  button  "send" 
click  at  it 
end  if 
hide  msg 

set  locxscreen  to  false 
end  if  I 

if  it  is  4  then 
set  cursor  td  busy 
set  iockscreen  to  true 

I 

put  empty  into  card  fid  remove 

put  fid  screen  of  card  interface  into  dataget 

if  dataget  is  empty  then 


SendResponke  "Is  -if"  4  return 
wait  100 

put  TCPRecyUpTo  (  rc?connect;or, -irefeeo,  empty)  ..-.to  .-.ewinput 
repeat  until  newlnput  is  empty 

put  TCPRdcvUpTo (TCPconnect ton, linefeeg, 0, empty )  into  newlnput 

I 

put  xStrilpinewInput,  •inefe-'O)  after  last  c.-.aracter  of  fielo  screen  of  caro  interface 
end  repeat  ' 
end  if  | 

put  f’-d  screen  of  card  interface  into  dataget 

put  xgetScreen  (dataget , return)  into  card  flo  remove 


if  card  fid  "remove"  =  empty  tnen 

answer  "Try  moving  up  a  directory"  with  “OK" 
go  card  "mail  card" 

exit  mouseOown 
end  if 

put  card  field  "remove"  into  theList 
put  "Choose  directory...."  into  msg 
OoList  999, theList, one 
put  the  result  into  gotit 


if  gotit  is  empty  then 


\ 
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go  card  *01311  card* 

hide  iRsg 
exit  mousedown 
end  If 

put  Item  2  of  gotit  Into  gotlt 

answer  "change  directory  to“i*gotit  with  *No*  or  "ok* 
if  it  is  *No"  then 
hide  fflsg 

exit  mousedown 
end  if 


SendResponse  *cd  "tgotltt  return 
wait  50 

put  empty  into  fid  screen  of  card  interface 
SendResponse  *ls  -If*  t  return 
wait  200  . 

go  to  card  “mail  card* 

hide  msg 


wait  100 


set  iockscreen  to  false 
answer  “Directory  changed*  with  “Good* 
end  if 

if  it  is  5  then 

answer  “Move  up  a  directory?"  with  “Yes*  or  “Cancel* 
if  it  is  “Cancel*  then  exit  mousedown 

SendResponse  “cd  ..*t  return 
wait  100 

set  Iockscreen  to  true 

put  empty  into  fid  screen  of  card  interface 
SendResponse  “is  -lf*(  return 
wait  200 

answer  “Directory  changed*  with  "OK" 

end  if  -  _  _ . .  . . 

if  it  is  6  then 

put  empty  into  card  fid  text 
put  empty  into  card  fid  “cc* 
put  empty  into  card  fid  “subject* 
end  if  -  ■ 


end  mousedown 


BUTTON:  card  button  “UNIX  Interface* 
on  mouseUp 
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global  TCPconnection 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "file  view"  then 

if  fid  screen  of  this  card  w  empty  then 
put  empty  into  fid  screen  of  this  card 
sendResponse  “q" 

wait  100 

— sendSPort  "Is  -If*  (  return 
go  card  interface 
end  if 
end  if 

if  cardname  "read  mail"  then 

if  fid  screen  of  this  card  •  empty  then 
put  empty  into  fid  screen  of  this  card 
sendResponse  "q" 

wait  100 

— sendSPort  "Is  -if"  i  return 

if  card  fid  head  of  this  card  w  empty  then 

get  the  loc  of  card  button  "save  messages" 
end  if 

click  at  it 
end  if 
end  if 

set  lockscreen  to  true 
go  card  interface 
set  lockscreen  to  false 
end  mouseUp 


.......  BUTTON:  card  button  "Saved  Addresses" 

on  mousedown 

put  the  mouseLoc  into  myPlace 

put  item  1  of  myPlace  -  10  into  horiz 

put  item  2  of  myPlace  -  -20  into  vert 

get  PopUpMenu (card  fid  savedaddress, 5,  vert,  horiz) 
if  the  optionKey  is  down  then 
put  it  into  fun 

delete  item  fun  of  card  fid  savedaddress 
answer  "Address  was  removed" 
exit  mouseOown 
end  if 

if  it  is  0  Chen 

answer  "this  is  a  pop  up  menu" 
exit  mousedown 

and  if 

put  it  into  fun 

put  item  fun  of  card  fid  savedaddress  into  card  fid  "To 
end  mousedown 


.......  CARD  FIELD  SCRIPTS 

.......  FIELD:  card  field  "error" 

on  mcuseUp 
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hide  me 
end  mouseup 


U . .>  l-;  '■  ■ 


.......  CARD  SCRIPT:  file  view 

on  opencard 

global  morecount 

set  lockscreen  to  true 

set  the  lockText  of  fid  screen  to  false 

put  empty  into  morecount 

set  the  rect  of  fid  screen  to  0,57,512,297 

set  lockscreen  to  false 
end  opencard 
on  closeCard 

set  lockscreen  to  true 

set  the  lockText  of  fid  screen  to  true 

set  the  rect  of  fid  screen  to  0,0,261,342 

set  lockscreen  to  false 
end  closeCard 


.......  CARD  BUTTON  SCRIPTS 

.......  BUTTON:  card  button  “Show  More" 

on  mouseUp 

global  TCPconnectior. 

If  fid  screen  of  this  card  is  not  empty  then 

put  fid  screen  into  dataget 
—put  xStrlp(dataget, linefeed)  into  dataget 
— CgRet  dataget, 60 
put  dataget  into  fid  screen 
end  if 

put  number  of  characters  in  .'Id  screen  into  numofchars 

—  Since  HyperCard  fields  can  only  hold  some  many  characters  you  need  to 
--  check  It  every  once  and  awhile  and  empty  the  field  out. 
if  numofchars  >  25000  then 

answer  "Field  will  be  cleared  this  time,  it's  getting  full'-i 
with  "Cancel”  or  "OK" 
if  it  “  "Cancel"  then 
exit  mouseUp 

else  .  _ _ _ _ _  _  _ 

put  empty  into  fid  screen 
put  empty  into  morecount 
end  If 
end  if 

—delete  last  line  of  fid  screen 
delete  last  character  of  fid  screen 
—delete  last  character  of  fid  screen 
sendResponse  "  " 
set  cursor  to  watch 
wait  100 

—delete  last  character  of  fid  screen 
sendResponse  "  " 
end  mouseUp 
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BUTTON:  card  button  "print" 
on  mouseUp 

put  fid  screen  of  this  card  into  x 
printText  x 
hide  msg 
end  mouseUp 


BUTTON:  card  button  "UNIX  interface" 
on  mouseUp 


put  the  short  name  of  this  card  into  cardname 
if  cardname  -  "file  view"  then 

if  fid  screen  of  this  card  »  empty  then 
put  empty  into  fid  screen  of  this  card 
sendResponse  "q" 

wait  100 

set  lockscreen  to  true 
go  caro  interface 
.  end  if 
end  if 

sec  lockscreen  to  true 
go  card  interface 
sec  lockscreen  to  false 
end  mouseUp 


CARD  SCRIPT:  themessage 


on  openCard 

sec  lockscreen  to  true 
put  empty  into  card  fid  error 
put  empty  into  fid  screen  of  this  card 
set  the  rect  of  fid  screen  to  0,0,512,21C 
end  openCard 
on  CloseCard 
global  mbox 
put  empty  into  mbox 
end  CloseCard 


CARD  BUTTON  SCRIPTS 

BUTTON:  card  button  "Show  message" 

on  mousedown 


global  includedflle 

put  Che  mouseLoc  into  myPlace 

put  item  1  of  myplace  -  10  into  horiz 

put  item  2  of  myplace  -  -20  into  vert 

put  card  fid  thelist  into  list 

get  PopUpMenu(llst,5,  vert,  horiz) 
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if  it  is  0  Chen 

answer  "Cllclc  and  hold  button,  this  Is  a  pop-menu' 
exit  mousedown 
end  if 


if  it  >  0  then 

put  empty  into  fid  screen  of  this  card 
SendResponse  "t'ttit  t  return 
put  *message'(tit  into  card  fid  msgname 
else 

exit  mousedown 
end  if 


end  mousedown 


BUTTON:  card  button  "Save' 
on  mouseUp 

global  messnura,  TCP'‘''''nection 
put  empty  into  lax 

answer  "Save  messages  ?"  with  "Yes'  or  "cancel" 
if  it  is  "cancel"  then  exit  mouseUp 
if  it  is  "Yes"  then 
put  1  into  count 
repeat  messnum  times 

answer  "Do  you  want  to  save  message'ttcountt"?"  with  "No"  or  "Yes" 
if  it  is  "No"  then 
put  1  into  lax 
add  1  to  count 
next  repeat 
end  if 


ask  "Name  message'itcounttl" (one  word!" 
if  it  is  empty  then  exit  mouse(Jp 
put  it  into  namer 

put  the  number  of  words  in  namer  into  goof 
if  goof  >  1  then 

answer  "I  told  you  one  word" 

put  word  1  of  namer  into  namer 
answer  "File  is  named's inamer 
end  if 

SendResponse  "ra'Stcount  (  return 
wait  100 

SendResponse  namer  t  return 
wait  100 

put  TCPRecvUpTo (TCPconnect ion, 1 inefeed, 0, empty)  into  newinput 
repeat  until  newinput  is  empty 

put  TCPRecvUpro(TCPconnection, linefeed, 0, empty)  into  newinput 
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put  newinput  after  last  character  of  card  field  error 
end  repeat 

put  FindInField  (card  fid  error, "Confirm", false)  into  fun 
if  fun  is  not  “0,0, 0,0"  then 


SendResponse  ”y"  i  return 
end  if 

add  1  to  count 

put  empty  into  card  fid  error 
end  repeat 
end  if 

wait  so 

SendResponse  ’e"4  return 

answer  messnumi4"messaqe  ( si  taicer.  care  o'" 
if  lax  -  1  then 

answer  “Unsaved  messages  are  in  the  user  mbox* 
end  if 

--put  TCPRecvUpTo  (TCPconr.ect  ion,  linefeed,  0,  empty )  into  newinput 
— repeat  until  newinput  is  empty 

— put  TCPRecvUpTo (TCPconnect ion, linefeed, 0, empty )  intt  newinput 
beep  1 

—put  newinput  into  crash 
—end  repeat 

put  1  into  card  fid  save 
go  to  earn  interface 


end  mouseUp 


..4-...  BUTTON:  c.rd  button  "Oeiete" 
on  mouseUp 

global  messnun, TCPconnection, moox 
if  mbox  -  1  then 

subtract  1  from  messnum 

answer  "Can't  delete  moox,  one  message  wiii  oe  left"  with  “Tes 
put  empty  into  mbox 
else 

answer  "Delete  all  messages?"  with  “Yes"  or  “cancel* 
end  if 

if  it  is  "cancel"  then  exit  mouseUp 
if  it  is  "Yes*  then 

answer  "Last  chance"  with  “OK"  or  "Cancel" 
if  it  is  "Cancel"  then  exit  mouseUp 
repeat  with  x  •  I  to  messnum 
wait  50 

SendResponse  “d"4tx  t  leturn 
wait  20 


end  repeat 
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answer  "All  messages  deleted* 
put  empty  Into  messnum 
SendResponse  "e'sreturn 
wait  20 

put  TCPRecvUpToiTCPconnection, linefeed, 0, empty)  into  newinput 
repeat  until  newinput  is  empty 

put  TCPRecvUpTo(TCPconnection, linefeed, 0, empty)  into  newinput 

put  newinput  into  trash 
end  repeat 

put  empty  into  fid  screen 
set  loc)cscreen  to  true 
set  cursor  to  watch 
go  to  card  interface 


put  1  into  card  fid  save  of  card  “themessage* 


end  if 
end  mouseUp 


.......  BUTTON:  card  button  "Headers  all* 

on  mouseUp 

put  empty  into  fid  screen  of  this  card 
wait  SO 

SendResponse  "ha*  (  return 
set  scroll  of  fid  screen  to  1 
end  mouseUp 


.......  BUTTON:  card  button  "UNIX  Inte.face* 

on  mouseUp 

if  fid  receiving  >  0  then 

answer  "Wait  a  second,  still  listing  data* 
exit  mouseUp 
end  i  f 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "themessage*  then 
if  card  fid  save  is  empty  then 

answer  "You  need  to  save  or  delete  messages* 
exit  mouseUp 
else 

go  to  card  interface 
end  if 
end  if 

end  mouseup 


.......  BUTTON:  card  button  "Print  screen* 

on  mouseUp 

if  fid  receiving  >  0  then 

answer  "Wait  a  second,  still  gathering  data!* 
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exit  mouscUp 
and  if 

put  fid  screen  into  x 
printText  x 
hide  fflsg 
end  nouseUp 


BUTTON:  card  button  "Exit" 
on  inouseUp 

global  TCPconnect ion 

SendResponse  "e"  (  return 
wait  so 

put  TCPRecvUpTo (TCPconnection, linefeed, 0, empty)  into  newinput 
repeat  until  newinput  is  ei.'pty 

put  TCPRecvUpTo (TCPconnect ion, linefeed, 0, empty)  into  newinput 

put  newinput  into  trash 
end  repeat 

answer  "Messages  are  in  the  user  mbox" 
set  locKscreen  to  true 
go  to  card  interface 

put  1  into  card  fid  save  of  caro  tnemessage 
end  mouseup 


BUTTON:  card  button  "Answer" 
on  mouseUp 


get  FindInFieldff Id  screen, "From", "false", 0) 
if  it  is  "0,0, 0,0"  then 

answer  "Try  showing  the  mossage" 
exit  mouseUp 
end  if 


put  item  2  of  it  into  linenum 

put  word  2  of  line  linenum  of  fid  screen  into  adoress 
answer  "Send  to"((address  with  "OK"  or  "No" 
if  it  is  "No"  then 
exit  mouseUp 
end  if 

SendResponse  "e"  t  return 
wait  100 

go  to  card  "mail  card* 

put  address  into  card  fid  "To" 

put  empty  into  card  fid  subject 

put  1  into  card  fid  save  of  card  themessage 


end  mouseup 


.......  BUTTON:  card  button  "Save  address" 

on  mouseup 

get  FindlnFieldffld  screen, "From", "false", 0) 


if  it  is  -0,0, 0.0“  then 

answer  "Try  showing  the  message" 
exit  mouseup 
end  if 


put  item  2  of  it  into  linenum 

put  word  2  of  line  linenum  of  fid  screen  into  address 

put  addresst","  after  last  character  of  card  fid  savedaddress  of  card  "Mail  card 
answer  "address  has  been  saved" 
end  mouseup 


.......  CARD  SCRIPT:  Groups 

on  openCard 

hide  fid  screen 
hide  fid  receiving 
hide  bg  button  home 
end  openCard 
on  closeCard 

show  bg  button  home 
show  fid  screen 
show  fid  receiving 
end  closeCard 


.......  CARD  BUTTON  SCRIPTS 

.......  BUTTON:  card  button  "New  Button" 

on  mouseUp 

go  card  "mail  card" 
end  mouseUp 


.......  BUTTON:  card  button.  "UNIX  Interface" 


on  mouseup 


put  the  short  name  of  this  card  into  cardname 
if  cardname  -  "file  view"  then 

if  fid  screen  of  this  card  *  empty  then 
put  empty  into  fid  screen  of  this  card 
CntrZ 

put  the  result  into^  fun 
sendResponse  fun 


wait  100 

— sendSPort  "Is  -1 
go  card  interface 
end  if 
end  if 

if  cardname  -  "read  mail 
if  fid  screen  of  this  c\ 
put  empty  into  fid  sc 
CntrZ  1 

put  the  result  into  fUn 
sendResponse  fun 


return 


then 

rd  m  empty  then 
een  of  this  card 


wait  100 

— sendSPort  "is  -1"  i  returr. 

it  card  fid  head  of  this  card  •  empty  then 
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APPENDIX  C 

MEL'S  HYPERCARD  UNIX  E-MAIL  SYSTEM  (HUES) 
SOURCE  CODE  -  MODEM  VERSION 
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HEL’S  HYPERCARD  UNIX  E-MAIL  SYSTEM  (HUES) 
SOURCE  CODE  -  MODEM  VERSION 


-•  Xk*  tourc*  cod*  for  thii  vartlon  i*  v*ry  •lailar  to  th*  M*jTCP  varaion 
-•  although  it  la  auch  aiaplar,  atpacially  th*  login  routlnaa,  and 
-•  eharaetar  handling  cod*. 

••  Thla  atack  oonatantly  chacka  to  aa*  If  any  charactara  ar*  avallabl* 

--  la  It 'a  Idl*  handlar.  Xf  ao,  it  aiaply  puta  than  Into  tha  actaan  flald. 
.......  STACK:  HUES-ModemVaraion  . . 

.......  STACK  SCRIPT! 

on  opanSlack 

put  th*  aaconda  Into  card  fid  thoTim*  of  card  intarfaca 
hid*  manubar 

global  SPortClobala, logoutme 
put  anpty  Into  logoutm* 
aat  lockacraon  to  true 
go  to  card  Pretarancaa 
ahow  maaaaq*  box 
aat  uaarModlfy  to  tru* 

conf  iquraSPort  modamPort ,  baudlJOO.datae.atoplC,  par  It  yOf  f.itripOn,-. 
at  r ipCont  rolaOf  f 
aatSPorlBuf farSir#  10J40 

aat  hint#  of  card  button  *300  baud"  of  card  Prefarencea  to  falaa 

aat  hint*  of  card  button  *1200  baud"  of  card  Prafarancaa  to  tru* 

aat  hint*  of  card  button  *2400  baud*  of  card  Prafarancaa  to  falaa 

aat  hint#  of  card  button  *9600  baud"  of  card  Preferancea  to  falaa 

aat  hint*  of  card  button  "Strip  control  charactara"  of  card  Preterencaa  to  falaa 

aat  hint#  of  card  button  "Strip  parity  bit"  of  card  Prafarancaa  to  trua 

aat  th#  ract  of  fid  acraan  to  123,160,414,21'’ 

put  empty  Into  fid  acraan 

hlda  card  button  "Login* 

hid*  fid  recalvlng 

put  empty  Into  cd  fid  magnama  of  card  thamaaaaga 
and  opanstaek 

on  eloaaStack 
global  logoutma 

put  empty  Into  card  fid  text  of  card  "Mail  Card* 

If  logoutma  la  not  empty  than 

put  *Muat  log  you  out  to  quit...."  into  mag 

put  empty  Into  logoutma 

aat  euraor  to  watch 

put  ampt  y  Into  fid  acraan 

aandSPort  "logout*  a  return 

■ait  230 

aandSPort .  "iogout  *  a  taiuln 
wait  200 

aandSPort  ".•.*  -•  eand  th*  propar  r.odaa  eoaMaanda 
wait  SCO 
cieaaSPort 

If  th#  raauU  la  not  empty  than  anawar  t  no  raault  with  "OK" 
wait  13 

aanrtSPort  "ath"  t  return  --  aand  th*  propar  aodaa  eeanaanda 
wait  SO 

a*'‘dsron  "ath"  a  return 
wait  SO 

anawar  "tou  hav*  bean  ioggad  o„t  ,"  wirh  "OK" 


7? 


closeSPort 

if  the  result  is  not  empty  then  answer  the  result  with  "OK" 
exit  closeStack 
end  if 


end  closeStack 
on  openBackqround 
push  recent  card 
end  openBackqround 

on  idle 

-*  Thia  la  the  aialn  character  handling  function  of  the  atack,  which  la  auch 
>-  More  alaple  than  the  TCP  veralon. 

put  recvUpTo (empty , 0, empty)  into  newinput 


if  newinput  is  not  empty  then 

put  charsAvailableO  into  fid  "receivinq” 

put  xSt r ip ( newl nput , i i nef eed)  after  last  character  in  fid  screen 


end  if 
end  idle 
on  returnKey 

lendSPort  messaqe  box  (  return 
put  empty  into  messaqe  box 
end  returnKey 

on  test 

repeat  until  the  mouse  is  oown 

sendSPort  •123456')09O . "  i  return  t  linefeed 
end  repeat 
end  test 
on  ioqln 

global  loqoutme 

put  card  fid  “loqin  name"  into  name 
sendSPort  name  4  return 
wait  300 

put  CharsAvailableO  into  x 
put  recvChats(x)  into  trasn 

get  ask  ('’secret”,  "Enter  the  user  password;") 
sendSPort  it  t  return 

wait  100 

put  empty  into  card  fid  look 
put  CharsAvailableO  into  x 
put  recvChars(x)  into  cd  fid  look 

put  rindlnFleld (card  fid  look,  "incorrect",  false)  into  tun 

if  fun  is  *0,0, 0,0"  then 
put  1  into  loqoutme 
set  cursor  to  watch 

go  to  card  interface 

put  empty  into  fid  screen  of  this  card 


\ 
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•xlt  loqln 


•l»e 

put  card  fid  "loqln  name'  Into  name 
aendSPort  name  t  return 
wait  50 

put  CharaAvallableO  into  x 
put  racvCharB(x)  into  traah 

9et  aak ('aecret', 'Paaaword  Incorrect:') 
aendSPort  it  (  return 
wait  300 

put  empty  into  card  fid  loo): 
put  CharaAvallable I)  into  x 
put  racvChara(x)  into  cd  fid  loo): 

put  FindInFleld(card  fid  loo):, 'incorrect',  falte)  into  fun 

if  fun  ia  *0,0, 0,0'  then 
put  1  into  logoutme 
aet  curaor  to  watch 
go  to  card  interface 
exit  login 
elae 

aet  the  loc  of  mag  to  10,300 
put  'incorrect  paaswords  given'  into  mag 
aendSPort  '♦♦♦" 
wait  500 

put  'Cloaing  connection'  into  mag 
cloaeSPort 

aendSPort  'ATH'  t  return 
wait  100 

aendSPort  'ATH'  (  return 
hide  card  button  login 
hide  aiag 
exit  login 
end  if 
end  if 
end  login 


.......  BACKGROUND:  b):gnd  id  2599 

.......  background  button  scripts 

.......  BUTTON:  b):gnd  button  'iiome' 

on  mouaeUp 

global  logoutme 

if  logoutme  ia  not  empty  then 

anawer  'You  muat  logout  to  go  home'  with  'OK' 
exit  mouaeUp 
end  if 


viaual  effect  irla  open 
go  Home 
end  mouaeUp 


\  . 
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.......  BUTTON:  bkqnd  button  "Strip  control  characters" 

on  mouieUp 

if  the  hilite  of  me  then  conf iqureSPort  stripControlsOn 
else  conf iqureSPort  stripControisOf f 
end  mouseUp 


.......  BUTTON:  bltqnd  button  "Strip  parity  bit" 

on  mouseUp 

if  the  hilite  of  me  then  conf iqureSPort  stripOn 
else  conf iqureSPort  stripOff 
end  mouseUp 


.......  BUTTON:  bltqnd  button  "Prev" 

on  mouseUp 

If  fid  recelvlnq  >  0  then 

answer  "Wait  a  second,  still  qatherinq  data!" 

exit  mouseUp 
end  if 

put  the  short  name  of  this  caro  into  caroname 
if  cardname  -  "file  view"  then 

if  fid  screen  of  this  card  w  empty  then 
put  empty  into  fid  screen  of  this  card 
CntrZ 

put  the  result  Into  fun 
sendSPort  fun 

wait  100 

sendSPort  'Is  -1"  (  return 
end  if 


end  if 


sec  lockscreen  to  true 
qo  to  prev  card 

hide  msq 
end  mouseUp 

.......  background  riELD  SCRIPTS 

.......  HELD:  bkqnd  field  "screen" 

on  mouseUp 

This  Is  essentlslly  seas  ss  the  MscTCP  version  (See  appendix  A) 
put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunc( (scroll  of  me  /textheiqht  of  me)  *  (item  2  of  the  mouseloc  -• 

•  top  of  me) /textheiqht  of  me))*l  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  lino  theLine  of  fid  screen  into  fun 
sendSPort  *cd  "tfun  (  return 
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put  •mpty  into  fid  screen 

set  cursor  to  watch 

set  the  loc  of  msg  to  10,300 

put  •Checking  for  file  or  directory  type..."  into  msg 
wait  303 

put  charsAvailabled  into  z 
put  recvChars(z)  into  gotit 

if  last  word  of  lino  2  of  gotit  is  "directory”  then 

sendSPort  "more  -f  -l”*»fun  4  return 
put  fun  into  card  fid  filename  of  card  "file  view” 
set  the  rect  of  me  to  0,57,512,297 
go  to  card  "file  view” 
put  empty  into  fid  screen 
else 


sendSPort  "Is  -1”  4  return 
set  the  scroll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  mouseUp 


.......  BACKGROUND:  bkqnd  id  8414 

.......  background  button  scripts 

.......  BUTTON:  bkgnd  button  "Home” 

on  mouseUp 

global  logoutme 

if  logoutme  is  not  empty  then 

answer  “You  must  logout  to  go  home”  with  "OK”, 
exit  mouseUp 
end  if 


visual  effect  iris  oper 
go  Home 
end  mouseUp 


.......  BUTTON:  bkgnd  button  "Strip  control  characters” 

on  mouseup 

if  the  hliite  of  me  then  conf igureSPort  stripControlsOn 
else  conf igureSPort  stripControlsOf f 
end  mouseUp 


.......  BUTTON:  bkgnd  button  "Strip  parity  bit” 

on  mouseUp 

if  the  hliite  of  me  then  conf igureSPort  stripOn 
else  conf igureSPort  stripOff 
end  mouseUp 


background  field  scripts 
FIELD:  bKgnd  field  "screen" 
on  mouseUp 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunc  (  (scroll  of  me  /textheight  of  mel  +  (item  2  of  the  raouseloc  -i 
-  top  of  me) /textheight  of  me))+l  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  Oi.  fid  screen  into  fun 

sendSPort  "cd  *4 fun  t  return 
put  empty  into  fid  screen 
set  cursor  to  watch 
set  the  loc  of  msg  to  10,300 

put  *Chec)<ing  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvailableO  into  z 
put  recvChars(zl  into  gotit 

if  last  word  of  line  2  of  gotit  is  "directory"  then 

sendSPort  "more  -f  -l"4tfun  4  return 
put  fun  into  card  f.d  filename  of  card  "file  view" 
set  the  roct  of  me  to  0,57,S12,297 
go  to  card  "file  view* 
put  empty  into  fid  screen 
else 


sendSPort  "Is  -1*  4  return 
set  the  scroll  of  me  to  1 
end  it 
and  i  f 

hide  msg 
end  mouseUp 


BACKGROUND:  b)<gnd  id  7265 

.......  background  button  SCRIPTS 

.......  BUTTON:  b):gnd  button  "Home" 

on  RiousaUp 

global  logoutme 

If  logoutme  is  not  empty  than 

answer  "You  must  logout  to  go  home'  with  "OK" 
exit  mouseUp 
end  If 


visual  effect  iris  open 
go  Home 
end  mouseUp 
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.......  BUTTON:  bkqnd  button  'Strip  control  characters' 

on  nouaeUp 

If  the  hlllte  of  me  then  conf IqureSPort  ttrlpControlsOn 
else  configureSPort  strlpControlsOf f 
end  mouseup 


.......  BUTTON:  bkgnd  button  'Strip  parity  bit' 

on  mouseUp 

if  the  hlllte  of  me  then  conflgureSPort  strlpOn 
else  conflgureSPort  strlpOff 
end  mouseup 

.......  background  field  SCRIPTS  — 

FIELD:  bkgnd  field  'screen' 
on  mouseup 

put  the  short  name  of  this  card  Into  cardname 
If  cardname  •  'Interface'  then 

put  (trunc ( (scrol 1  of  me  /textheight  of  me)  ♦  (item  2  ^he  mouseloc 
-  cop  of  me) /textheight  of  me))'>l  into  CheLlne  j 

select  line  CheLlne  of  fid  screen  | 

'  ! 

■  ■ 

put  last  word  of  line  theLlne  of  fid  screen  into  fun 

1 

sendSPort  *cd  '(fun  (  return 
put  empty  into  fid  screen 
set  cursor  to  watch 
sec  the  loe  of  msg  to  10,300 

put  'Cheeking  for  file  or  directory  type...'  Into  msg 
wait  300 

put  charsAvallableO  into  z 
put  recvchara(z)  into  goClt 

If  last  word  of  line  2  of  gotlt  Is  'directory'  then 

sendSPort  'more  -f  -I'Kfun  (  return  j 

put  fun  into  card  fid  filename  of  card  'file  view'  | 
set  Che  rect  of  me  to  0,37,513.297 
go  to  card  'file  view” 
put  empty  into  fid  screen 
else 


sendSPort  'Is  -1'  (  return 
set  Che  scroll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  mouseUp 


BACKGROUND:  bkgnd  id  5891  . . 

BACKGROUND  BUTTON  SCRIPTS 
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.......  BUTTON:  bkgnd  button  "Home" 

on  mouseup 

global  logoutme 

i£  logoutme  is  not  empty  then 

answer  "You  must  logout  to  go  home"  with  "OK" 
exit  mouseUp 
end  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 


.......  BUTTON:  bkgnd  button  “Strip  control  characters" 

on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  stripControlsOn 
else  conf igureSPort  stripControlsCf f 
end  mouseUp 


.......  BUTTON:  bkgnd  button  "Strip  parity  bit" 

on  mouseUp 

if  the  hilite  of  me  then  con  £ igureSPort  stripCn 
else  conf igureSPort  stripOff 
end  mouseup 


.  BACKGROUND  FIELD  SCRIPTS  . . 

.......  FIELD:  bkgnd  field  "screen" 

on  mouseUp 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "interface"  then 

put  (trunci  (scroll  of  me  /textheight  of  me)  ♦  (item  2  of  the  mouseloc  -< 
-  top  of  me) /textheight  of  me))*l  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  of  flo  screen  into  fun 

sendSPort  *cd  "(fun  (  return 
put  empty  into  fid  screen 
set  cursor  to  watch 
set  the  loc  of  msg  to  10,300 

put  "Checking  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvailableO  into  z 
put  recvChars(z)  into  got  it 

if  last  word  of  line  2  of  gotit  is  "directory"  then 

sendSPort  "more  -f  -l"tifun  (  return 

put  fun  into  card  fid  filename  of  card  "file  view" 

sec  the  recc  of  me  to  0,S7,S12,297 

go  CO  card  "file  view" 

put  empty  into  fid  screen 


79 


•ls« 


sendSPort  "Is  -1"  <  return 
set  the  scroll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  nouseUp 


BACKGROUND:  bkgnd  id  4774 

.......  background  button  scripts 

.......  BUTTON:  bkgnd  button  "Home* 

on  mouseUp 

global  logo'jtme 

if  logoutme  is  not  empty  then 

answer  "You  must  logout  to  go  home"  with  "OK" 
exit  mous'jUp 
end  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 


.......  BUTTON:  bkgnd  button  "Strip  control  characters" 

on  mouseUp 

if  the  hilite  of  me  then  conf igureSPort  strlpControlsOn 
else  configureSPort  stripControlsOf f 
end  mouseUp 


.......  BUTTON:  bkgnd  button  "Strip  parity  bit" 

on  mouseUp 

if  the  hilite  of  me  then  configureSPort  stripOr. 
else  configureSPort  stripOff 
end  mouseUp 


.......  background  field  scripts 

.......  FIELD:  bkgnd  field  "screen* 

on  mouseUp 

put  the  short  name  of  this  card  into  cardname 
if  cardname  >  "interface"  then 

put  (trunc  ( (scroll  of  me  /textheight  of  me)  *  (item  2  of  the  mouseloc  -< 
-  top  of  me) /textheight  of  me))+l  into  theLine 
select  line  theLine  of  fid  screen 

put  last  word  of  line  theLine  of  fid  screen  into  fun 
if  last  character  of  fun  •  "/*  then 


V  0 


sendSPorc  “cd  ”4  fun  4  return 
put  empty  int.^  fid  screen 
set  cursor  to  watch 
sendSPort  "Is  -1"  4  return 
set  the  scroll  of  me  to  1 

else 


sendSPort  “more  -f  -l“44fun  4  return 

put  fun  into  card  fid  filename  of  card  “file  view" 

set  lockscreen  to  true 

set  the  rect  of  me  to  0,57,512,297 

go  to  card  “file  view" 
put  empty  into  fid  screen 
end  if 

end  if 


hide  msg 
end  mouseUp 


.......  BACKGROUND:  bkgnd  id  2845 

.......  background  button  scripts  ....... 

.......  BUTTON:  bkgnd  button  “Home" 

on  mouseUp 

global  logoucme 

if  logoucme  is  not  empty  then 

aniwer  “You  must  logout  to  go  home"  with  “OK" 
exit  mouseUp 
end  if 


visual  effect  iris  open 
go  Home 
end  mouseUp 

BUTTON:  bkgnd  button  “Strip  control  characters" 
on  mouseUp 

if  Che  hilite  of  me  then  conf IgureSPort  stripControlsOn 
else  configureSPort  stripControisOf t 
end  mouseUp 


.......  BUTTON:  bkgnd  button  “Strip  parity  bit" 

on  mouseUp 

if  the  hilite  of  me  then  configureSPort  stripOn 
else  configureSPort  stripOff 
end  mouseUp 


BACKGROUND  FIELD  SCRIPTS 


/ 
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I  /  ' 

•  FIELD:  bkgnd  flold  •scr««n'’ 

on  mouseup 

put  the  short  name  of  this  card  into  cardname 
if  cardname  “  “interface"  then 

put  (trunc(  (scroll  of  me  /textheiqht  of  me)  *  (item  2  of  the  mouseloc  -• 
-  top  of  me) /textheight  of  me))+l  into  theLine 
select  line  theLine  of  fid  screen 


put  last  word  of  line  theLine  of  fid  screen  into  fun 

sendSPort  *cd  “(fun  (  return 
put  empty  into  fid  screen 
set  cursor  to  watch 
set  the  loc  of  msg  to  10,300 

put  “Chec)(lng  for  file  or  directory  type..."  into  msg 
wait  300 

put  charsAvallable (]  into  r 
put  recvChars(z)  into  gotit 

if  last  word  of  line  2  of  gotit  is  “directory"  then 

sendSPort  “more  -(  -l"((fun  (  return 
put  fun  into  card  fid  filename  of  card  “file  view" 
set  the  rect  of  me  to  0, S7, S12, 297 
go  to  card  “file  view" 
put  empty  into  fid  screen 
else 


sendSPort  “Is  -1"  (  return 
set  the  scroll  of  me  to  1 
end  if 
end  if 

hide  msg 
end  mouseup 


.......  CARD  SCRIPT:  Preferences 

on  opencard 

hide  card  button  “300  baud" 

hide  card  button  “1200  baud" 

hide  card  button  “2400  baud" 

hide  card  button  “9600  baud" 

hide  card  button  “Strip  control  characters" 

hide  card  button  “Strip  parity  bit" 

show  card  button  “Advanced  Users  Only" 

put  ath  into  msg 

hide  msg 

set  lockscreen  to  true 
put  empty  into  fid  screen 
show  fid  screen 

set  t)ia  rect  of  fid  screen  to  126,165,393,208 
hide  fid  receiving 
set  lockscreen  to  false 
end  openCard 
on  closeCard 

show  fid  receiving 
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end  clcseCard 


.......  CARD  BUTTON  SCRIPTS  . . 

.......  BUTTON:  card  button  “Dial" 

on  mouseUp 

put  empty  into  fid  screen 
put  ath  into  msg 
hide  msg 

answer  “Dial  phone  number?"  with  “No"  or  “Yes" 
if  it  is  “Yea"  then 

answer  “Click  on  the  login  button  after  connected"  with  “Cancel"  or  “OK" 

if  it  is  “Cancel"  then  exit  mouseUp 

put  empty  into  fid  “screen"  of  card  interface 

put  card  fid  “phone  number"  into  pnumber 

sendSPort  “AT0T"t4 pnumber  (  return 

show  card  button  “login" 
end  if 

end  mouseUp 


.......  BUTTON:  card  button  *300  baud" 


on  mouseUp 

conf igureSPort  baudOOO 
set  hilite  of  cd  button 

set  hilite  of  cd  button 

set  hilite  of  cd  button 

set  hilite  of  cd  button 

end  mouseUp 


“1200  baud"  to  false 
“2400  baud"  to  faise 
“9600  ba^o"  to  faise 
“300  baud"  to  true 


BUTTON:  card  button  “1200  baud" 


on  mouseUp 

conf igureSPort  baudl200 
set  hilite  of  cd  button 
set  hilite  of  cd  button 
set  hilite  of  cd  button 
set  hilite  of  cd  button 
end  mouseUp 


“300  baud"  to  faise 
“2400  baud"  to  false 
“9600  baud"  to  false 
“1200  baud"  to  true 


.......  BUTTON:  card  button  "2400  baud" 

on  mouseUp 

conf igureSPort  baud2400 

set  hilite  of  cd  button  “300  baud"  to  false 

set  hilite  of  cd  button  “1200  baud"  to  false 

set  hilite  of  cd  button  *9600  baud"  to  false 

set  hilite  of  cd  button  “2400  baud'  to  true 

end  mouseUp 


.......  BUTTON:  card  button  “9600  baud" 

on  mouseUp 

configureSPort  baud9600 

sot  hilite  of  cd  button  “300  baud'  to  false 
set.  hilite  of  cd  button  “1200  baud'  to  false 
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»»t  hilit*  of  cd  buti.ori  *?4C'0  ba  ,.rt”  t  •.<  f4l*i» 
••t  hi  lit*  of  cd  bgttc'i  ‘^fOO  b^jd"  to  t  r  g* 
•nd  wou>*Up 


HU7TON ;  c»td  button  “Strip  control  ch*t»cl*r»* 
on  !iiou«*Up 

if  Ih*  hlllt*  of  m*  lh*n  co'' f  i  qu  t  •St'or  t  »t  r  i  («.  o''t  t  ('1  tOn 
•  1**  con  f  iqur*5Pot  I  tt  t  Ipr  onl  r  o  1  tOf  f 
•  nd  inoutaUp 


BUTTON;  card  button  “Strip  parity  bit" 
on  (itou**Up 

if  th*  hint*  of  m*  th*n  co.nf  iquraSPort  ttrlpOn 
•l*e  contlqur*SPort  ttrlpOff 
•nd  moutoUp 


•.•.•.a  BUTTON:  card  button  "Now  autlo"" 

on  moutcUp  ' 

thow  card  fid  halo 
•nd  mout*Up 

•.•.•.a  BUTTON:  card  button  "Advanced  Uiera  Only" 
on  iitouacUp 


hid# 

thow 

ma 

card 

button 

“300  baud* 

ahow 

card 

button 

•1200  baud* 

ahow 

card 

button 

“2400  baud* 

ahow 

card 

button 

•9600  baud* 

ahow 

card 

button 

“Strip  control  Charactats 

ahow 

card 

button 

“Strip  parity  bit* 

•nd  mouaaUp 

a. a. a. a  BUTTON;  card  button  “Loqln" 
on  wouaoUp 

—  global  loqoutme  . - . 

put  ompty  into  card  fid  remove  of  card  interface 
put  •mpty  into  card  fid  ioon 

■'*  Muat  wait  (or  •  eonnoction  b«for«  tha  coda  can  axacuta  any  of  tha 
--  la^ln  routiaaa. 

put  FindlnFiald ( f id  icraen, 'Connact ", f alsel  into  fun 
if  fun  la  *0,0, 0,0*  than 
aandSPort  •  *  t  raturn 
wait  100 

put  FindlnFialdlf id  tcraan, *Loqin*,  f a  1 lel  into  fun 
if  fun  it  *0,0, 0,0"  than 
aandSPort  *  "  4  raturn 
wait  100 

put  FindlnFiald ( f id  acraan , "Pasaword" , f a  1 »a(  into  fun 
if  fun  it  “0,0, 0,0"  than 

put  “Could  not  qel  loqln  prompt...  Proceedrnq  witn  care"  into  m»q 

wait  SO 

login 
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h  1 1 ho** 

I*-”  C  I  "••<  »>tf 

•  ho*  h*  liiitteo 
»►'-'•  fid 

»►.'»  fid  I  »<  •!  ¥  i  f'd 


. .  <»«0  HUTTON  SCRIPTS 

HUTTON  cird  tHJtff'*'  •N#«i  Hutto''" 

oi>  •outNl'H 

r*f  el  *•«  i  1  r«reJ" 

#n«l 


.  H'JTTf'N;  rard  ».ut  t  o’-  "UN!* 

O'-  r-.n,  j*  -p 

pu’  t  •'•  »*'<'rt  o*i»*  of  toit  f«td  loso  ( tr  no*** 

if  •  *f|i»  V!»¥"  t  OO” 

if  fiO  •r.N*'-  r'  tri«  Ojifel  •  *"T’  y  'oo- 
put  poipt  y  into  fid  of  if-i*  t:»rd 

t » I  r  I 

put  top  rptuit  loto  fun 
ipnelSPott  fu» 

wait  100 

--aandSPort  *i»  *1"  4  tatum 
90  raid  intarfaca 
and  If 
and  i  f 

if  ratdnaaa  •  "raad  *a 1 i "  toa" 

If  fid  aotaan  of  tMa  card  a  ai*r'.  y  « ftttn 
put  PNip*  y  info  fid  ff-taan  of  toia  card 
C  otrl 

put  to#  taauit  into  tun 
aandSPort-  fun 

wait  IDC 

--aandSPor*  *i»  -!*  4  eatuer 

if  catd  fid  read  of  tfiia  taid  a  a-'pi  y  than 

pat  t  na  loc  of  ratd  Button  "»ava  aaatatia* 
and  1  f 

click  at  It 
and  if 
and  1  f 

aat  lacktcraan  to  trua 
90  card  tntarfacd 
aat  lorkactaan  te  falaa 
and  poutaup 


HUTTON!  card  button  "Haw  Button* 
en  atouaaUp 


afiow  card  fid  halo 


.-Au;a  fIFI.D  :').;» rPT'; 

.  M  F  LO  ;  (  *r  cl  (  jp  Id  "Up  .  p" 

on 

i  d#  *«► 

«»nd  •’'•v.j  i#^jp 


•  cABD  SrPTF":  * 

ard 

••t  i ot  » «c to  t  r  u# 
put  y  i*^to  <  afd  f»d  error 

put  e-'pt  V  ir*o  fid  screen  m  •  ard 

set  t  ^e  rerr  cf  tij  »rree^'  to 
end  cpentard 


cap::  !>•  "s  . . 


PjT'*''".N-  >a*  -3  t'^'-  :  ■}'■  "S'-oii#  '^essaoe" 


on  eo  j  sedow*' 

if  fid  receiving  >  t  •■e'^ 

answer  "Wan  a  «eco»'ci,  *t  i  *  »  gat*‘.eri'*g  data’** 

e«it  '^ouse^.'p 
e-'d  if 

g  i  Ota .  1  -^r  i  ^cled  f  .  .  e 

pi.».  "'■e  '^•^^teloc  ''o  '•yo  a^e 

pjf  ite>  ;  of  eyPiac:e  -  ;C  into  •'orif 

put  1 1  #'*'  i  of  '"yr^.ace  *  ‘/d  into  vert 

pwt  card  fid  theiiat  into  *  i  at 

get  FopUpMe^  j  i  A  .  a?  ,  ^ ,  vert,  '-.-r:r» 

if  it  it  0  then 

a^iwer  **riic«i  a'^d  n.oid  button,  thia  it  a  pop-eienu" 
•  aait  '^ojied'^w^ 
end  i  f 

i  f  it  >  0  r  nen 

put  •"'pr  y  into  fid  screen  of  this  card 

%enci<?Port  "'“tan  4  re^ur*' 

pvt  "'"ea  aage"  4  4  1 1  .nto  card  f.d  'rsgn^i*^^ 

•  i  ae 

eait  '^ouaedown 
end  I  f 


•nd  eouaedown 


. .  IKJTTONt  card  buttor^  T^ave" 


on  moutoUp 

qlobal  m«i$nuni. 

If  fid  r*c*lvlnq  >  0  then 

•newer  *W»lt  «  tecond,  »tlll  qethertnq  d«t«'* 

•  Kit  iKoueeUp 

end  if 

put  empty  Into  1*k 

•ntwcr  'Save  meteaqei  ?”  with  *Ye»*  or  “cancel* 
if  it  i»  •cencel”  then  exit  mouteUp 
if  it  it  ‘Yet*  then 
put  1  into  count 
repe«t  meilnum  timet 

•newer  “Do  you  went  to  teue  meeteqe'ttcountt'?*  with  *No*  or 
if  it  it  ‘No*  then 
put  1  into  let 
•dd  1  to  count 
r)ext  repeet 
end  if 


•  IK  *Neme  meiiaqe“ttcounm"  n;''e  wordt” 
if  it  it  empty  then  exit  mouteUp 
put  It  into  remer 

put  the  number  of  wordt  in  nemer  into  qoof 
if  qoof  >  1  then 

•ntwer  *I  told  you  one  word* 

put  word  1  of  nemer  into  nemer 
•ntwer  *riie  it  nemed'iinemer 
end  if 

•endSPort  •m"»*count  t  return 
weit  too 

tendSPort  nemer  i  return 
welt  100 

put  recvUpTo  1 1 inef eed, 0, empt yl  into  newinput 
repeet  until  newinput  it  empty 

put  recvUpTo ( i ineteed, 0, empt y I  into  newinput 

put  newinput  efter  leit  cherecter  of  cerd  field  error 

end  repeet  —  -  . . - 

put  rindlnPieidlcerd  fid  error, *Conf irm*, feiteV  into  fun 
if  fun  it  not  "0,0, 0,0*  then 


•endSPort  *y*  e  return 
end  if 

edd  i  to  count 

put  empty  into  cerd  fid  error 
end  repeet 
end  if 

weit  SO 

tendSPort  *e*  I  return 

•ntwer  mettnumt t 'metteqe ( ti  texen  cere  of 

if  iex  •  1  then 

•newer  "Uneeved  metteqet  ere  in  the  uior  mbox' 
end  if 


"Yet 
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put  tecvUpTo  ( i  I ne f e«?d.  0,  empt y I  irlo  newinput 
repeat  until  newinput  is  empty 

put  recvUpTo ( 1 inefeed, 0, empty)  into  newinput 

put  newinput  into  irasn 
end  repeat 

put  1  into  card  fid  save 
qo  to  card  interface 


end  mouseUp 


BUTTON:  card  pulton  “Delete” 

on  mouseJp 

qlobal  messnum 

if  fid  receivinq  >  0  then 

answer  “Wait  a  second,  $t ;  1  ;  qaferirq  aata'“ 

exit  mouseUp 
end  1  f 

qei  F ;ndi n f ield ( card  ; Id  msqhame, "-pcx", : ' .e, 0) 
if  item  1  of  it  >  0  tnen 
subtract  1  from  messnum 

answer  “Can't  delete  moox,  one  messaqe  will  be  left” 
end  i  f 


answer  “Delete  all  messaqes?”  with  “Yes”  or  “cancel” 

it  it  is  “cancel"  tnen  exit  mouseUp 
If  it  is  “Yes”  then 

answer  “Last  chance”  with  “OK"  or  “Cancel” 

If  It  Is  “Cancel”  then  exit  mouseUp 
repeat  with  x  •  1  to  messr.m 
wait  50 

SendSPort  “d”S4x  i  return 
wait  20 


and  repeat 

answer  “All  messaqes  deleted” 
put  empty  into  messnum 
SendSPort  "e”4return 
wait  20 

put  recvUpTol '  inefeed.  0, empty)  i(\to  newinput 
repeat  until  na<Irput  it  empty 

put  racvlpToi  .inefeed, 0, empty)  into  newinput 


put  newinput  nto  trash 
and  repeat 


put  empty  into  Id  screen 
set  lociiscraan  to  true 
sat  cursor  to  watch 
qo  to  card  Interface 
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put  1  Into  card  fid  aavo  of  card  'thomoaaaqa' 


and  if 
and  moutaUp 


BUTTON:  card  button  'Haadara  all" 
on  aouaaUp 

if  fid  racaivlnq  >  0  than 
anawar  "Nalt  a  aacond,  atill  qatharlnq  data!" 

aait  MOuaaUp 
and  if 

put  ampty  into  fid  acraan  of  thia  card 
wait  SO 

SandSPort  "ha"  t  raturn 
aat  acroll  of  fid  acraan  to  1 
and  aouaaUp 


BUTTON:  card  button  "UNIX  ’nterracr" 

on  nouaaUp 

if  fid  racaivinq  >  0  than 
anawar  "Wait  a  aacond,  atill  liatinq  data* 
aait  aouaaUp 
and  if 

put  tha  abort  nama  of  thia  card  into  cardnaaa 
if  cardnama  •  "thamaaaaqa"  than 
if  card  fid  aava  ia  ampty  than 
anawar  "you  naad  to  aava  or  dalata  masaaqaa* 
aalt  aouaaUp 
alaa 

qo  to  card  intarfaca 
and  if 
and  if 

and  nouaaUp 


BOTTOM:  card  button  "Print  acraan’ 
on  mouaaUp 

if  fid  racaivinq  >  0  than 
anawar  "Mait  a  aacond,  atill  qatharlnq  data!" 

aait  MouaaUp 
and  i  f 

put  fid  acraan  into  a 
prlntTaat  a 
and  mouaaUp 


BUTTON;  card  button  "Ealt* 
on  nouaaUp 
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if  fid  receiving  >  0  then 

enswer  "Wait  a  second,  still  gathering  data!" 

exit  mouteUp 
end  i  f 

sendSPort  “e"  (  return 
wait  50 

put  recvUpTo ( li ne feed, 0, empty »  into  newinput 
repeat  until  newinput  is  empty 

put  recvUpTo ( 1 inefeed, 0, empty )  into  newinput 

put  newinput  into  trash 
end  repeat 

answer  "Messages  are  in  the  user  moox" 
set  lockscreen  to  true 
go  to  card  interface 

put  1  into  card  fid  save  of  card  themessaqe 
end  mouseup 


•.•.•.a  BUTTON:  card  button  "Answer" 
on  mouseUp 


get  Firdl.nField  ( f  ,0  sc  r  een,  "r'r  om",  "  f  a .  se" ,  0 1 
i f  it  is  *0, 0, 0, 0"  t  hen 

answer  "Try  showing  the  message" 
exit  mouseUp 
end  if 


put  item  2  of  it  into  iinenum 

put  word  2  of  iine  iinenum  of  fid  screen  into  address 
answer  "Send  to"»taddress  with  "OK"  or  "No" 
if  it  is  "No"  then 
exit  mouseup 
end  if 

SendSPort  *e"  (  return 

wait  100 

go  to  card  "mail  card" 

put  address  into  card  fid  "To" 

put  empty  into  card  fid  subject 

put  1  into  card  fid  save  of  card  themessage 

I 


end  mouseUp 


m.t.t.t  BUTTON:  card  button  "New  Button" 

on  mouseUp 

show  card  fid  help 
end  mouseUp 

.......  CARD  FIELD  SCRIPTS  . 

.......  rietD:  card  field  "Help" 

on  mouseUP 
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hid*  me 
end  moufeUp 


CARD  SCRIPT:  Mail  Card  •- 

on  opencard 
hide  txj  btn  1 
put  empty  into  fid  screen 
put  the  time  Into  card  fid  time 
show  card  fid  'time  out* 
hide  fid  "receiving" 
hide  fid  “screen" 
and  openCard 


on  rioseCard 
show  bg  btn  1 
show  fid  screen 
show  fid  "receiving" 
end  closeCard 


CARD  BUTTON  SCRIPTS 
BUTTON;  card  button  •'Send" 

This  sends  a  Mssege  in  n  ByperCard  tleld  to  the  SON  and  is  send  as  a 

•  •  SMsaaga.  The  Important  thing  here  is  to  strip  out  any  carraiga  returns  that 
••  might  be  in  the  fields  and  add  them  in  the  correct  placet  for  the  SDli.  The 

•  •  fields  in  hypereard  have  a  word  wrap  function  so  a  eessage  can  be  typed 

••  with  no  earraige  returns.  The  CgRet  external  eostnand  adds  carraiga  returns 
••  to  the  end  of  a  variable  of  so  many  characters,  in  this  ease  SO.  It  also 
••  checks  to  make  sure  that  it  dees  not  break  up  any  words,  or  ruin  any 
••  existing  carriage  returns. 

on  mouseUp 

global  Includedfile 
sat  the  loc  of  the  msg  to  10,300 
put  the  time  into  card  fid  time 
if  includedfile  is  empty  ther 

answer  "Send  this  meissge?"  with  "No*  or  "Yet" 
if  it  is  "No*  then 
exit  moutaUp 
end  if 
end  if 


set  cursor  to  watch 

if  card  fid  "Te"  is  empty  the 

answer  "There  is  no  name  to  nd  to’"  with  "Sorry" 
exit  mouseup 
end  if 

-*  xttrip  and  stripLastRaturn  both  strip  out  the  carraiga  returns 
put  card  fid  "To*  into  person 
put  xStrlp(person, return)  into  tamp 
StripLastRaturn  temp 
put  the  result  into  card  fid  "To" 
put  card  fid  "To"  into  person 

put  card  fid  "cc"  into  x 
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put  xStrip (X, return)  into  x 
itripLastReturn  x 
put  the  result  into  cd  fid  “cc" 
put  cd  fid  *cc”  into  carbon 

put  “Sending  ■message....”  into  trsg 


put  card  fid  “text "4  ret  urn  into  y 
if  y  is  empty  then 

answer  “There  is  no  text  to  send!” 
exit  mouseUp 
end  i  f 

CgRet  y, 60 

put  the  result  into  fun 
put  y  into  card  fid  “text" 

SendSPort  “send”  (  return 
wait  100 

-  Thl*  routln*  la  used  if  th«  parson  is  sanding  a-nail  to  mora  than 
•  ona  parson. 

put  the  number  of  items  in  card  fid  “To”  into  linenum 
if  linenum  >  1  then 

repeat  with  x  •  1  to  linenum 

SendSPort  item  x  of  cd  fid  "To”i”\”t  return 
wait  100 

put  “Sending  tO!”titem  x  of  card  fid  “To”  into  msg 

wait 

end  repeat 

SendSPort  *“  t  return 

else 

SendSPort  person  t  return 
end  i  f 
wait  100 


SendSPort  person  t  return 
wait  100 

put  the  number  of  items  In  card  fid  “cc”  into  linenum 
If  linenum  >  1  then 

repeat  with  x  -  1  to  linenum 

SendSPort  item  x  of  cd  fid  “cc”t”\”t  return 
wait  100 

put  “Sending  to:”Htem  x  of  card  fid  “cc”  Into  msg 

wait  4S 
end  repaat 

SendSPort  “*  (  return 

else 

SendSPort  carbon  4  return 
end  If 
wait  100 

put  card  fid  “Subject”  into  sub 
put  xStrlpfsub, return)  Into  temp 
stripI.aatReturn  temp 
put  the  result  into  cd  fid  “Subject” 
put  card  fid  “Subject”  into  sub 

SendSPort  sub  l  return 
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wait  100 


put  'Sandlnq  matiage  ...*  Into  mag 
SandSPort  fun  4  raturn 
Malt  100 


CntrD 

put  tha  raault  Into  fun 
SandSPort  fun  4  raturn 
wait  100 

put  "sanding  control  d.. 


•  Into  mag 


If  Includadflla  la  not  ampty.  than 

answar  "Include  flla  "4lhcludedflla  a*?*  with  "No*  or  "Yea* 
if  it  la  "Yas"  than 
•at  cursor  to  watch 
SandSPort  "file  Include*  4  return 
wait  100 

SandSPort  includadflla  4  return 
put  ampty  Into  Includadflla 


and  If 
and  If 


SandSPort  "send*  4  return 
wait  SOO 

put  empty  Into  cd  fid  error 


put  racvUpTo( linefeed, 0. empty)  Into  nawinput 
repeat  until  nawinput  la  empty 

put  recvUpTo 'line feed, 0, empty)  Into  nawinput 

put  nawinput  aftar  last  character  of  card  field  error 
and  repeat 

put  FindInFiald (card  (Id  arror , 'Message  Posted*, false)  into  errortime 
If  arrortlma  a  "0,0, 0,0*  than 
beep  1 

answer  "Message  was  sent  successfully*  with  "Great!* 

else 

beep  l\ 

SandSPprt  "quit*  4  return 
wait  lOO 

SandSPort  *y*  4  return 

answer  j*sorry  an  arror  of  some  )»ind,  sea  field  below'  with  "Darn* 
sat  locKscraan  to  true 
show  ea^d  fid  arror 
and  if  1 


put  •••••Click  on  flald  to  closed****  aftar  last  line  In  card  fid  arror 
put  tha  number  of  lines  of  card  fid  error  into  fun 
multiply  fiin  by  10 

set  the  scroll  of  card  fid  •rror  to  fun 
hld«  Msg 


end  mouseUp 


.......  BUTTON:  card  button  "Update" 

•-  must  do  thla  ao  that  the  SUK  knowa  wa  ara  atlll  lo^gad  In. 

on  mouseUp 

put  the  time  into  c.  rd  £id  time 
sendSPort  "  "  4  return 
end  mouseup 


.......  BUTTON:  card  button  "Options" 

on  mousedown 

if  fid  leceivinq  >  0  then 

answer  "What  a  second,  still  gathering  data" 
exit  mousedown 
end  if 

global  includedfile 

put  the  mouseLoc  into  myPiace 

put  item  1  of  myPlace  -  10  into  horiz 

put  item  2  of  myPlace  -  -20  into  vert 

get  PopUpMenu ("Address; Edit  Addresses; Include  File;Chanqe  D i rectory ; Move  Up  Di rectory , Clear 
Field", 5,  vert,  horiz) 

if  it  is  0  then  answer  "This  is  a  pop  up  menu" 
if  it  is  1  then 

set  icckscreen  to  true 

put  card  fid  time  into  savedtime 

go  to  card  "groups" 


put  empty  into  card  fid  fun 

repeat  with  x  •  1  to  the  nuniber  of  lines  in  card  fid  "group  name' 

put  item  1  of  line  x  of  card  fid  "group  name"4","  after  last  character  of  card  fid  fun 
end  repeat 

put  card  fid  fun  into  theList 

OoList  999, card  fid  fun, one 
put  the  result  into  fun 
if  fun  is  empty  then 
go  card  "mail  card" 
put  savedtime  into  card  fid  time 
hide  card  fid  "time  out" 
exit  mouseOown 


end  if 


put  item  2  of  fun  into  gotit 

get  FindInField (card  field  "group  name", gotit, "true", 0) 
put  item  2  of  it  into  linenumber 
if  it  is  0  then 

answer  "error  of  some  kind" 
end  if 

put  0  into  start 
repeat  forever 

get  FindInField (card  fid  "group  name", "(", "true", start) 
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If  Item  2  of  it  •  llnenumber  then 

exit  repeat 
else 

put  item  1  of  it  into  start 

next  repeat 
end  if 
end  repeat 

put  item  1  of  it  into  firstspot 

get  FindInField (card  fid  "group  na*e', *) *, “t rue*. f irst ipct ) 
put  item  1  of  it  into  seconospot 


put  character  firstspot  to  secc-aip-t  ir  cars  fid  *;rr.p  fa-«'  :r'.-y  sadress 

delete  character  1  of  address 

delete  last  character  c!  address 

put  empty  into  card  ;,d  *Tc*  .jr;" 

put  address  into  card  !.d  *Tc'  n-r  *-s..  card* 

go  to  card  "mail  card* 

put  savedtime  urtc  card  • 

hide  card  f»d  *t.r-e  c.f 
set  locXscree-  re  fa.se 
end  if  ’ 


if  it  is  2  then 

go  to  card  "groups* 
end  if 

if  it  is  3  then 

set  cursor  to  watch 

put  "Please  wait  gathering  file  names...' 
set  lockscreen  to  true 

if  fid  screen  of  this  card  is  empty  then 
sendSPert  "Is  -If*  4  return 
wait  100 

put  reevUpTo (linefeed, 0, empty)  into  newinput 
repeat  until  newinput  is  empty 

put  reevUpTo (linefeed,  0, empty )  into  newinput 

put  newinput  after  las-  character  of  field  screen 
end  repeat 

end  if 

put  empty  into  card  fid  remove 

put  fid  screen  of  thi  ca^d  into  dataget 

put  xStrip(dataget, linefeed)  into  fid  screen  of  this  card 

put  xgetScreen (fid  screen, return)  into  dataget 

put  "Choose  file.,..*  into  msg 


put  dataget  into  theList 
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if  theList  is  empty  then 
hide  msq 
beep  1 

answer  "No  files  in  directory,  try  chanqing  directory” 
exit  mousedown 
end  if 

DoList  999, theList, one 
put  the  result  into  gotit 


if  gotit  is  empty  Chen 

go  card  "mail  card” 
hide  card  fid  "time  out" 
hide  msg 
exit  mousedown 
end  if 


put  it'»m  2  of  gotit  into  inciudedf i le 
answer  "ir,clude”itincludeaf iie  with  "Cancel”  or  "Ok” 
if  it  is  "Cancei"  then 
hide  card  fid  “time  out” 
hide  msg 
exit  mouseOown 
end  if 


go  to  card  "mail  card” 
hide  card  fid  "time  out" 

answer  "f ile"ttincludadfilei4”included,  send  now?”  with  "Cancel”  or  "OK" 
if  it  is  "OK”  thei 

get  the  loc  of  card  button  "send” 
click  at  it 
end  if 
hide  msg 

set  locKscreen  to  false 
end  if 

if  it  is  4  then 

set  lockscreen  to  tr-e 

if  fid  screen  o'  this  card  is  empty  then 
go  to  card  interface 
put  fid  screen  into  neeoit 
go  to  card  "mail  card" 
put  needit  into  fid  screen  of  this  card 
end  if 

put  empty  into  card  fid  remove 
put  fid  screen  of  this  card  into  dataget 
put  xStrip(dataget, linefeed)  into  dataget 
put  xgetScreen (dataget, return)  into  dataget 


if  dataget  -  empty  then 

answer  "Try  moving  up  a  directory"  with  "OK" 
go  card  "mail  card” 
hide  card  fid  "time  out" 
exit  mouseOown 
end  if 
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put  dataqct  Into  thuLiat 

put  'Chooae  directory ... (words  with  a  /  are  directories)...'  into  msg 
OoLlst  999,theList,one 
put  the  result  into  gotit 


II  gotit  is  empty  then 

go  card  'mail  card' 
hide  card  fid  'time  out' 
hide  mag 
exit  mousedown 
end  if 

put  Item  2  of  gotit  into  gotit 
delete  last  character  of  gotit 

answer  'change  directory  to'ttgotlt  with  *No'  or  'ok' 
if  it  is  'No'  then 
Itide  msg 

hide  card  fid  'time  out' 
exit  mousedown 
end  if 


SendSPort  'cd  'tgotltt  return 
wait  SO 

put  empty  into  fid  screen  of  this  card 
SendSPort  'Is  -if'  4  return 
wait  200 

go  to  card  'mail  card* 
hide  card  fid  'lime  out' 
hide  msg 


wait  100 


set  lockscreen  to  false 
answer  'Directory  changed'  with  'Good' 
end  if 

if  it  is  S  then 

answer  'Move  up  a  directory?'  with  'Yes'  or  'Cancel' 
If  it  is  'Cancel'  then  exit  mousedown 

SendSPort  'cd  ..'i  return 
wait  100 

set  lockscreen  to  true 
put  empty  into  fid  screen 
SendSPort  'Is  -If'i  return 
wait  200 

answer  'Directory  changed'  with  'OK' 
hide  card  fid  'time  out' 
end  if 

if  it  is  6  then 
put  empty  into  card  fid  text 
end  if 


end  mousedown 
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/ 


BUTTON:  card  button  "UNIX  Interface" 
on  mouseup 

put  the  short  name  of  this  card  into  cardname 
if  cardname  »  "file  view"  then 

if  fid  screen  of  this  card  *  empty  then 
put  empty  into  fla  screen  of  this  card, 

CntrZ 

put  the  result  Into  fun 
sendSPort  fun 

wait  100 

— sendSPort  "Is  -1"  (  return 
go  card  interface 
end  if 
end  if 

if  cardname  ■  "read  mail'  then 

if  fid  screen  of  this  card  *  empty  then 
put  empty  into  fid  screen  of  this  card 
CntrZ 

put  the  result  into  fun 
sendSPort  fun 

wait  100 

—sendSPort  "Is  -1"  t  return 

if  card  fid  head  of  this  card  *  empty  then 

get  the  loc  of  card  button  "save  messages" 
end  if 

ciicK  at  it 
end  if 
end  1  f 

set  locXscreen  to  true 
go  card  interface 
set  Ibckscreen  to  false 
end  mouseUp 


BUTTON:  card  button  "New  Button" 

on  mouseUp 

show  card  fid  help 
end  mouseup 


CARD  FIELD  SCRIPTS 

FIELD:  card  field  "error" 

on  mouseUp 
hide  me 
end  mouseup 


FIELD:  card  field  “time  out" 
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on  mouseUp 
hide  me 
end  mouseup 


.......  FIELD:  card  field  'Help- 


on  mouseUP 
hide  me 
end  mouseup 


.......  CARD  SCRIPT:  interface 

on  openCard 

put  empty  into  fid  screen 
sendSPort  "Is  -If”  t  return 
set  lockscreen  to  true 

set  the  rect  of  fid  screen  to  0,34,260,342 
set  the  loc  of  fid  receivinq  to  450,21 
show  fid  receivinq 
set  Icckscreen  to  false 
end  OpenCard 

on  mouseUp 

if  fid  receivinq  of  this  card  >  0  then 

answer  'Vlait  a  second,  still  receivinq  data” 
exit  mouseUp 
end  if 

end  mouseUp 


.......  CARD  BUTTON  SCRIPTS  . . 

BUTTON:  card  button  "Send  UNIX  Command” 
on  mouseUp 

if  fid  receivinq  >  0  then 

answer  'Wait  a  second,  still  qatherinq  data!” 

exit  mouseUp 
end  if 

ask  'Send  what  UNIX  command” 
put  empty  into  fid  screen 
sendSPort  it  t  return 

end  mouseUp 


.......  BUTTON:  card  button  'List" 

on  mouseUp 

put  empty  into  fid  screen 
sendSPort  'Is  -if”  (  return 
wait  SO 

set  the  scroll  of  fid  screen  to  1 
end  mouseUp 
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.......  BUTTON:  card  button  “Logout" 

on  mouseUp 

global  logoutme 

answer  “Logout  now?"  with  “NO"  or  “Yes" 
if  it  is  “Yes"  then 

put  empty  into  logoutme 
set  cursor  to  watch 
put  empty  intc  fid  screen 
sendSPort  “logout"  (  return 
wait  200 

sendSPort  “logout"  (  return 

wait  200 

sendSPort  *+♦♦" 

wait  500 

closeSPort 

if  the  result  is  not  empty  then  answer  the  result  with  “OK" 
wait  50 

sendSPort  “ath"  (  return 
wait  SO 

sendSPort  “ath"  i  return 
wait  50 

answer  “You  have  been  logged  out."  with  “OK" 
closeSPort 

if  the  result  is  not  empty  then  rnswer  the  result  with  “OK" 
end  if 


end  mouseUp 


.......  BUTTON:  card  button  “Move  Up" 

on  mouseup 

if  fid  receiving  >  0  then 

answer  “Wai*  a  secono,  still  gathering  oata!" 

exit  mouseup 
end  it' 

sendSPort  "cd  (  return 
wait  100 

put  empty  into  fid  screen 
sendSPort  "Is  -If"  t  return 
sec  Che  scroll  of  fid  screen  to  1 


end  mouseUp 


.......  BUTTON:  card  button  "Transfer  File" 

--  The  transfer  file  routine  la  alnllar  to  the  MacTCP  version  only  It  Is 

—  sore  simple  because  a  separate  FTP  connection  does  not  have  to  be  opened 

—  first.  This  uses  xmodam  protocol.  I  think  other  protocols  can  be  used 
--  but  I  have  not  tried  them. 

on  mouseUp 

global  logoutme 

If  fid  receiving  >  0  then 

answer  "Wait  a  second,  still  gathering  data!" 

exit  mouseUp 
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•nd  If 


put  ampty  into  tacon 

put  anipty  into  card  fid  remove 

anawer  'Send  to  or  Receive  from  UNIX  system”  with  "Send”  or  *Receive"  or  "Cancel” 
if  it  is  "Cancel”  then 
exit  mousaUp 

and  if 

if  it  is  "Send”  then 

answer  "Has  the  file  been  converted  to  HEX  format”  with  "What?”  or  "No”  or  "Yes” 
if  it  is  "What?”  then 
show  card  fid  "HEX” 
exit  mouseup 
and  if 

if  it  is  "No”  then 

answer  "Open  the  BinHex  conversion  application?”  with  "Cancel”  or  "No”  or  "Yes” 
if  it  is  "Cancel”  then  exit  mouseUp 
if  it  is  "Yes”  then 

put  empty  into  loqoutme 
set  cursor  to  watch 
put  empty  into  fid  screen 
sendSPort  "logout”  4  return 
wait  200 

sendSPort  "logout”  4  return 

wait  200 

sendSPort  "♦♦♦” 

wait  500 

eloaeSPort 

if  the  result  la  not  empty  then  answer  the  result  with  "OK” 
wait  50 

sendSPort  "ath”  4  return 
wait  50 

sendSPort  "ath”  4  return 
wait  50 

answer  "You  have  been  logged  out.”  with  "OK" 
closeSPort 

if  the  result  is  not  empty  then  answer  the  result  with  "OK” 

open  "blnHex  i.O” 
exit  mousaUp 
end  if 
end  if 


put  filenameO  into  theFlle 
put  theFile  into  stripper 
if  theFile  is  empty  then 
hide  msg 
exit  mouaeUp 

end  if 

put  flleLength (theFile)  Into  howlong 
if  howlong  -  "0”  then 
beep  1 

answer  "Error  cannot  transfer  this  file” 
exit  mouseUp 
end  if 

put  "stac)t”44quote4theFile4quote  into  theFile 
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put  '“stack'tlquotetstripperSquoLe  into  stripper 

--  Calculate  out  how  long  the  transfer  will  take. 

divide  howiong  by  100 

if  howiong  >  60  then 
divide  howiong  by  60 
put  round(howiong)  into  howiong 

answer  "Transfer  will  take  approx . 'it howlongtt“minutes"  with  “Continue'  or  "Cancel” 
if  it  is  "Cancel"  then 
exit  mouseup 
end  if 
else 

put  1  into  secon 

answer  "Transfer  will  take  approx . 'it howlongii'seconds'  with  "Continue"  or  "Cancel" 
if  it  is  "Cancel'  then 
exit  mouseUp 
end  if 
end  if 

put  empty  into  moreoneworo 
set  cursor  to  watch 

striplast  sjtripper 
put  the  result  into  path 


gimeLast  theFile 

put  the  result  into  filename 

put  the  number  of  words  in  filename  into  x 

—  Make  sura  the  file  naaa  Is  one  word  so  the  Sfm  can  handle  It. 
if  X  >  1  then 

put  1  into  moreoneword 

put  1  into  count 

put  filename  into  f i lenamesaved 

repeat  with  x  •  1  to  the  number  of  words  in  filename 

put  word  count  of  filename  4"_"  after  last  character  in  fun 
add  1  ^o  count 
end  repedt 

I 

delete  last  character  of  fun 
put  fun  into  filename 

I 

end  if 

— put  quotetf ilenametquote  into  filename 

delete  first  character  of  path 
put  pathi':'  into  path 
Bare  la  tha  xmodam  protocol, 
if  moreoneword  «  1  then 

sandSPort  "xmodem  rb"*tf ilename  treturn 
wait  200 

sat  loc  of  msg  to  10,300 
if  secon  ■  1  then 

put  "Transfer  begun  at'jtthe  timett'Transfer  will  take  approx. '((howlong(i"seconds' 

else 

put  "Transfer  begun  at'iStho  timet  * "Transfer  will  take  approx. "{{howlongtt"minuta (s) 
end  if 


Xmodem  "send", path, filenamesaved 
beep  1 
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answer  •Transfer  of'ttfilenaroesavedtt'completed"  with  “OK" 
hide  msg 

put  empty  into  fid  screen  of  this  card 
■endSPort  "Is  -if”  (  return 

exit  mouseUp 


aendSPort  “xmodem  rb"((f ilename  treturn 
wait  300 

sat  loc  of  msg  to  10,300 
If  aecon  •  1  then 

put  “Transfer  begun  at"(tthe  time(("Transfer  will  take  approx, "((howlongtt'seconds" 

else 

put  “Transfer  begun  at'tcthe  timed "Transfer  will  take  approx. "ithowlong4(*minute(s) " 
end  if 

Xmodem  “send”, path, filename 
put  pathstf ilename  into  msg 

answer  “Transfer  of"4t filenamett'completed"  with  “OK" 
get  the  loc  of  card  button  List 
hide  msg 

put  empty  into  fid  screen  of  this  card 
sendSPort  “Is  -If"  4  return 
exit  mouseup 

end  if 

end  if 

if  it  is  “Receive"  then 

put  “Gathering  data.."  into  msg 

put  fid  screen  into  dataget 

put  xStrip<dataget, linefeed)  into  dataget 

put  xgetScreen (fid  screen, return)  into  dataget 

put  “Choose  file...."  into  msg 

put  dataget  into  theList 

DoList  999, theList, one 

put  the  result  into  thelist 

if  thelist  is  empty  then 

hide  msg  _ _ _ ^ 

exit  mouseup 
end  if  ' 

put  FolderName (“Choose  place  to  put  file")  into  path 
If  path  is  empty  then 
hide  msg 
exit  mouseup 
end  if 

put  item  2  of  thelist  into  thelist 
put  PindlnFleld ( f id  screen, thelist, false)  Into  where 
put  item  2  of  where  into  theline 
put  line  theline  of  fid  screen  into  theline 
put  xStrip;theline, linefeed)  in*o  theline 
put  word  1  of  theline  into  howlong 
multiply  howlong  by  1000 
divide  howlong  by  100 
put  round (howlong)  into  howlong 
if  howlong  >  60  then 
divide  howlong  by  60 
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put  rc^nd ( howlonq I  into  howionq 
put  1  into  secon 

answer  'Transfer  will  take  approx,  'ithowlonqit'minutes'  with  "Continue'  or  'Cancel' 
if  It  is  'Cancel'  then 
hide  msq 
exit  mouseUp 
end  if 
else 

answer  'Transfer  will  take  approx,  "tthowlonqt* 'seconds'  with  "Continue'  or  'Cancel' 
if  it  is  'Cancel'  then 
hide  msq 
exit  mouse'lp 
end  if 
end  if 


set  loc  of  msq  to  10,300 
if  secon  is  empty  then 

put  "Transfer  bequn  at'ttthe  t imet 4' . “4'Transfer  will  take  approx. 'tthowlonqtt'seconds' 

else 

put  "Transfer  bequn  at'ttthe  t imett'. 't'Transfer  will  take 
approx. 'tthowlonqt t 'minute (s)  ' 
end  if 


•endSPbrt  "xmodem  sb'ttthelist  t  return 
wait  300 

Xmodem  'receive', path, thelist 
beep  1 

answer  "Transfer  complete'  with  'Great' 
end  if 
hide  msq 
end  mouseUp 


BUTTON:  card  button  "Mail" 

on  mouseUp 

qlobal  messnum 

put  empty  into  messnum 

if  fid  receivinq  >  0  then 

answer  "Wait  a  second,  still  qatherinq  data!" 

exit  mouseUp 
end  if 


answer  "Check  mail  or  send  it?'  with  "Check'  or  "Send'  or  "Cincei" 
if  it  is  "Cancel'  then 
exit  mouseUP 
end  if 

if  it  is  "Send'  then 
qo  to  card  "mail  card' 
exit  mouseUp 
end  if 

set  cursor  to  watch 
--put  empty  into  fid  screen 
put  empty  into  card  fid  remove 
SendSPort  "msq'  t  return 
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wait.  100 

--put  CharaAvailableOt",'  after  last  character  in  msg 

—put  CharsAvallableO  Into  x 

—put  recvChara(x)  into  cd  fid  remove 

— put  CharsAvallableO  t*,'  after  last  character  In  msg 

put  recvUpTo (linefeed, 0, empty)  Into  newinput 
repeat  until  newinput  Is  empty 

put  recvUpTo(llnefeed,0, empty)  Into  newinput 

put  newinput  after  last  character  of  card  field  remove 

end  repeat 


avt  the  scroll  of  fid  screen  to  1 

get  FlndInFleld(card  fid  remove, "total”, "false*. 0) 
if  it  -  *0.0, 0,0"  then 

get  FlndInFieid(card  fid  remove, "empty", "false”, 0) 
if  it  -  *0,0, 0,0"  then 

answer  "Error  in  rhec)(ing  mail.  Try  a  different  phone#" 
exit  mouseup 
end  if 

answer  "No  new  messages* 

—put  empty  into  fid  screen 
— sendSPort  "is  -1”  (  return 


set  the  scroll  of  fid  screen  to  1 
exit  mouseUp 

else 

get  FlndInField(card  fid  remove, "binary", "false", 0) 
if  it  -  "0,0, 0,0”  then 

get  FlndlnField (card  fid  remove, "message", "lalse”, 0) 
pUw  item  2  of  it  into  linenum 

put  the  number  of  words  in  line  linenum  of  cd  fid  remove  into  temp 
subtract  2  from  temp 

put  word  temp  of  line  linenum  of  cd  fid  remove  into  theCount 


set  the  ioc  of  the  msg  to  10,300 
if  theCount  •  *i"  then 

put  "You  have  "ttheCountt*  message"  Into  cd  fid  msgname  of  card  themessage 

else 

put  "You  have  "ttheCountl"  messages"  into  cd  fid  msgname  of  card  themessage 
end  if 


go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  -  1  to  theCount 
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put  x4";"  after  last  character  in  card  fid  theList 


end  repeat 

else 

get  FindInField  icard  fid  remove, “message", "false", 0) 
put  item  2  of  it  into  linenum 

put  word  2  of  line  linenum  of  cd  fid  remove  into  theCount 

set  the  loc  of  the  msg  to  10,300 
if  theCount  -  *1"  then 

put  “You  have  “ttheCountt"  message"  into  cd  fid  msgname  of  card_ themessage 
else 

put  “You  have  "itheCountt"  messages"  into  cd  fid  msgname  of  card  themessage 
end  if 

go  to  card  themessage 
put  empty  into  caro  f.a  save 
put  empty  into  card  fid  theList 
put  theCount  into  messn-- 
repeat  with  x  ■  ;  to  tneCo.nt 

put  xt*;"  after  last  character  in  card  fid  theList 

eno  repeat 

end  if 
end  if 

hide  msg 

end  mouseUp 


.......  BUTTON:  card  button  “Delete  File"  I 

on  mouseup  | 

if  fid  receiving  >  0  then  \ 

answer  “Wait  a  second,  still  gathering  data!*! 

exit  fflouseUp 
end  if 

put  empty  into  card  fid  remove 
put  “Please  wait...  gathering  data"  Into  msg 


put  fid  screen  into  dataget 

put  xStrlp(dataget, linefeed)  into  dataget 

put  xgetScreen(fld  screen, return)  into  dataget 

^lete  Item  1  to  2  of  dataget 

put  “Choose  file...,"  into  msg 
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put  dataget  Into  theLlst 
DoLlst  999, theLlst, one 
put  the  result  Into  t,heilst 
If  thellst  Is  not  empty  then 

put  item  2  of  thellst  into  thellst 

answer  “Remove  file'tlthelisttt"?*  with  “OK”  or  “Cancel” 
if  it  is  “Cancel”  then 
hide  msg 
exit  mouseup 
end  If 

SendSPort  “rm  “tquutetthellsttquote  t  return 
wait  100 

SendSPort  “y”  4  return 

put  charsAvallable ()  Into  test 

put  recvChars (test)  Into  thetest 

put  empty  into  fid  screen 

answer  “File  has  been  removed”  with  “OK” 


put  empty  Into  fid  screen 
SendSPort  “Is  -1”  4  return 
set  the  scroll  of  fid  screen  to  1 
end  If 

hide  msg  box 
end  mouseUp 

—if  the  optlonkey  Is  down  then  pass  mouseup 
—put  card  field  list  Into  theLlst 
-•OoLlst  999,CheLlst,one 
—put  the  result 
—end  mouseup 

BUTTON:  card  button  “New  Button” 
on  mouseUp 

get  the  loc  of  card  button  mall 
cllcX  at  It 
end  mouseUp 


BUTTON:  card  button  “mbox” 

—  This  code  is  the  same  as  the  MacTCP  version.  It  ehmekt  to  see  how  many 
““  messages  the  user  has,  than  goes  to  the  read  mail  card  and  waits  for 

—  the  user  to  pick  a  message  number  to  view, 
on  mouseUp 

global  messnum 

put  empty  Into  card  fid  remove 

SendSPort  “msg  mbox”  4  return 
wait  100 


put  recvUpTo (linefeed, 0, empty)  into  newinput 
repeat  until  newinput  Is  empty 

put  recvUpTodinefeed,  0, empty)  into  newinput 
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put  newinpuc  after  last  character  of  card  field  remove 
end  repeat 

— put  xStriptcard  fid  remove,  return)  into  card  fid  ret.ove 
set  the  scroll  of  fid  screen  to  1 

get  FindInField (card  fid  remove, “total", “false”, 0) 

If  it  -  ''0,(..0,0"  then 

get  FindInField (card  fid  remove, "emptv", “false", 0) 
if  it  -  "0,0, 0,0“  then 

answer  “Error  in  checking  mail,  try  again" 

exit  mouseUp 

end  if 

a.iswer  "No  new  messages" 

— put  empty  into  fid  screen 
--sendSPort  "Is  -1"  i  return 


set  the  scroll  of  fid  screen  to  1 
exit  mouseUp 

.se 

g-t  FindInField  (card  fid  remove, “binary", “false", 0) 
if  it  •  "0,0, 0,0“  then 

get  FindInField (car J  fid  remove, "message", "false", 0) 
put  item  2  of  it  into  linenum 

put  the  number  of  words  in  line  linenum  of  cd  fid  remove  into  temp 
subtract  2  from  temp 

put  word  temp  of  line  linenum  of  cd  fid  remove  into  theCount 


set  the  loc  of  the  rsg  to  10,300 
if  theCount  -  "1"  then 

put  "You  have  "ttheCountl"  mbox  message"  into  cd  fid  msgname  of  card  themessage 
else 

put  "You  have  "itheCountt"  mbox  messages"  into  cd  fid  msgname  of  card  themessage 
end  if 


go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  ■  1  to  theCount 


put  xt";"  after  last  character  in  card  fid  theList 


end  repeat 
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•It* 

9*.  FindlnFieldfcard  fid  remove, "message",  “false”, 0) 
put  Item  2  of  it  into  linenum 

put  word  2  of  line  linenum  of  cd  fid  remove  into  theCount 


set  the  loc  of  the  msg  to  10,300 
if  theCount  •  *1"  then 

put  “Ifou  have  "ttheCountt"  mbox  message"  into  cd  fid  msgname  of  card  themestage 

else 

put  "You  have  “ttheCount*"  mbox  messages"  into  cd  fid  msgname  of  card  themestage 
end  If 

go  to  card  themessage 
put  empty  into  card  fid  save 
put  empty  into  card  fid  theList 
put  theCount  into  messnum 
repeat  with  x  ■  1  to  theCount 

put  X*";"  after  last  character  in  card  fid  theList 

end  repeat 

end  if 
end  if 

hide  msg 


end  mouseUp 

BUTTON:  card  button  "New  Button" 

on  mouieUp 

show  card  fid  help 
end  mouteUp 


CARD  FIELD  SCRIPTS 

.......  field:  card  field  "HEX" 

on  mouteUp 
hide  me 
end  mouteUp 


.......  FIELD:  card  field  "Help" 


on  mouteUP 
hide  me 
end  mouteUp 


CARD  SCRIPT:  tile  view 

--  Thla  rapoaltlon*  tha  background  field  “acreen"  for  each  card, 
on  opencard 

global  morecount 
sec  lockscceen  to  true 

set  the  lockText  of  fid  screen  to  false 
put  empty  ii'.to  morecount 

set  the  rect  of  fid  screen  to  0,57,512,297 
set  the  loc  of  fid  "receiving"  to  57,39 
set  lockscreen  to  false 
end  opencard 
on  closeCard 

set  lockscreen  to  true 
set  the  lockText  of  tld  screen  to  true 
sec  the  rect  of  fid  screen  to  0,0,261,342 
set  Che  loc  of  fid  receiving  to  319,323 
set  lockscreen  to  false 
end  closeCard 


CARD  BUTTON  SCRIPTS  . . 

BUTTON:  card  button  "Show  More" 
on  mcuseUp 

if  fid  screen  of  this  card  is  not  empty  then 

put  fid  screen  into  datagec 
put  xSt rip  (dataget , 1 inefeedi  into  cataget 
put  dataget  into  fid  screen 
end  i  f 

put  numoer  of  characters  in  fid  screen  into  numofchars 

--  Cheek  to  sake  sure  the  field  doesn’t  get  too  full  of  charactera 

if  numofchars  >  25000  then 

answer  "Field  will  be  cleared  this  time,  it's  getting  full"-* 
with  "Cancel"  or  "OK" 
if  it  •  "Cancel"  then 
exit  mouseup 
els  > 

put  empty  into  fid  screen 
put  empty  into  morecount 
end  if 
end  i  f 

delete  last  line  of  fid  screen 
delete  last  character  of  fid  screen 
— delete  last  character  of  fid  screen 
sendSPort  "  " 
end  mouseUp 


BUTTON:  card  button  "New  Button" 
on  mouseup 

put  fid  screen  of  this  card  into  x 
printText  x 
end  mouseUp 


.......  BUTTON:  card  button  "UNIX  Interface" 

on  mouseUp 

If  fid  receiving  >  0  then 


111 


answer  "Wait  a  second,  still  gathering  data!" 

exit  RiousaUp 
end  if 

put  the  short  name  of  this  card  into  cardname 
if  cardname  •  "file  view"  then 

if  fid  screen  of  this  card  •  empty  then 
put  empty  into  fid  screen  of  this  card 
CntrZ 

put  the  result  into  fun 
sendSPort  *q" 

wait  100 

— sendSPort  "Is  -if"  (  return 
set  lockscreen  to  true 
go  card  Interface 
end  if 
end  if 

set  lockscreen  to  true 
go  card  interface 
set  lockscreon  to  false 
end  ipouseup 


BUTTON:  card  button  "New  Button" 

on  mouseUp 

show  card  fid  help 
•nd  mouseup 

CARO  FIELD  SCRIPTS  . 

FIELD:  card  field  "Help" 

on  mouseUP 
hide  me 
end  mouseUp 
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